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IDENTIFICATION 


PRODUCT CODE: AC-T614E-MC 

PRODUCT NAME: CZQNAEO DEQNA FUNCTIONAL TEST 
PRODUCT DATE: APRIL 2, 1986 

MAINTAINER: MSD DIAGNOSTIC ENGINEERING 
AUTHOR : S. MAZURCZYK 


COPYRIGHT (C) 1986 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 


THIS INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILTY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT 


NO Tie Ge ths IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFT EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES . 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL POP UNIBUS MASSBUS 
DEC DECUS DECTAPE 
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ZQNA1 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34 VAX-11 Bliss-16 V4.0-579 Page 2 
VO1.0 GLOBAL DEFINITION MODULE 26-Mar-1986 17:01:04 DISK2:(SCODA.QNA.ZQNA)ZQNA1.BLI;1 (2) 
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SEQ 3 
ZQNA1 CZQNAEC DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34 VAX-11 Bliss-16 V4.0-579 Page 3 
vO1.0 GLOBAL DEFINITION MODULE 26-Mar-1986 17:01:04 DISK2: [SCODA.QNA.ZQNA)ZQNA1.BLI;1 (3) 
; C 0080 1.0 GENERAL INFORMATION 


C 0081 


The DIGITAL ETHERNET Q-Bus Network Adapter (DEQNA) Field Functional 
Diagnostic progres (ZQNA) performs extensive functional testing of 
the DEQNA/M7504 module for Q18 or Q22-Bus based PDP-11 systems. ZQNA 
an am_ attempts to isolate faults to the following Field Replacable 

its (FRU's): DEQNA, bulkhead assembly, transceiver cable, circuit 
breaxer ( fuse in bulkhead assembly ) and transceiver. This software 
oe Seven to localize faults to the functional areas of the DEQNA 
module. 


A test operator controls testing of the module from a console 
( hard copy or CRT ). 


This diagnostic has been written for use with the diagnostic 


seessusecese ceases 


AOOMNANANANAAANNAANANANANAAANANMHOOAONO 
sh a hh hl hd ed odd od od od aed ed ded de ee 


0100 runtime services software (supervisor). These services provide 

0101 the interface to the operator and to the software environment. 

0102 For a complete description of the runtime services, refer to the 

0103 XXDP+ user's manual. There is a brief description of the runtime 

0104 services in section 2 of this c. 

0105 

0106 

0107 1.2 SYSTEM REQUIREMENTS 

Re eases cman 
C 0110 The ZQNA software operates on a typical ‘newer PDP-11 processor’ system 
C 0111 that has one or two DEQNA modules on the 018 or Q22 system bus. 

O1l2 The internal and internal/extended | mode tests do not 
C 0113 require the transceiver or the 1 connector to be unplugged. 
C 0114 The external loopback mode may be used with a terminated transceiver 
: ate that has no network cable attached. 
C 0117 Testing DEQNA module and its interface to the Ethernet requires 
f ante following hardware: 
: ates - Typical gg € PDP-11/23 Plus, ORION ) with Q-Bus, 

- a 
C 0122 - Minimum of 28K words of memory ( supporting block or non-block mode ), 
E O138 “ [eopbeck ‘connector ( mel loopback tor, Part # 12 221 96-01 ) 
- connector € connector, Par - e 

C 0125 - Bulkhead assembly, 
C 0126 - Transceiver cable, 
’ eae - and transceiver ( H4000 ). 
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SEQ 4 
34 VAX-11 Bliss-16 V4.0-579 
04 DISK2: [SCODA.QNA.ZQNA .ZQNA1.BLI;1 


1.3 RELATED DOCUMENTS AND STANDARDS 


XXDP+ Supervisor/User's Manual - ( CHQUS ). 


1.4 ASSUMPTIONS 


It is assumed that the system has been tested without DEQNA and found 
working before this Giagnest ic is run, or that DEQNA DEC/X11 
Exerciser has dropped DEQNA option module when running system test. 


2.0 OPERATING INSTRUCTIONS 


This section contains a brief description of the runtime services. 
for detailed information, refer to the XXDP-+ ( ) 


There are eleven legal commands for the diagnostic runtime services 
(supervisor). This section lists the c gives a very 
brief description of them. The XXDP+ User's Manual has more details. 


COMMAND EFFECT 

START Start the diagnostic from an initial state 
RESTART Start the diagnostic without eich add 
CONTINUE Continue at test that was interrupted (after tC) 
PROCEED Continue from an error halt ; 

EXIT Return to XXDP+ monitor (XXDP+ operation only!) 
ADD Activate ea unit for testing (all units are 


considered to be active at start time 


DROP Deactivate a unit : ee 

PRINT Print statistical information (if implemented 
by the Giaprestic - section 4.0) | 

DISPLAY Type a list of all device information 

FLAGS type the state of all flags (see section 2.3) 

ZFLAGS Clear all flags (see section 2.3) 


A command can be recognized by the first three characters. 
So you may, for example, type "STA" instead of "START". 


Page 


4 
(4) 





SEQ 5 

ZQNA1 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34  VAX-11 Bliss-16 V4.0-579 Page 5 

V01.0 GLOBAL DEFINITION MODULE 26-Mar-1986 17:01:04  DISK2:(SCODA.QNA.ZQNA]ZQNA1.BLI;1 (5) 
; C 0176 2.2 SWITCHES 
— sO Ul 


There are several switches which are used to modify supervisor 
egret ion. These switches are appended to the legal c , 

All of the legal switches are tabulated below x with a brief 
description of each. In the descriptions below, a decimal number 
is designated by "DDDDD " . 


/TESTS:LIST a onty, those tests ages psd in 
I 


C 0189 list ist is a otr ion. er 
C 0190 numbers, for example - /TESTS:1: rs° i. 10. 
C 0191 This list will cause tests 1,5,7, 8. 9,10 to 
C 0192 be run. All other tests wil li ne t be run. 
C 0193 /PASS :DDDDD Execute DDDDD passes 2. 64000) 
C 0194 /FLAGS :FLGS Set specified flags. flags are described 
E O19e /EOP : DDDDD ote ces aks Pte 
: r of pass after eve 

only. "CDDDBD = 1 to 640 
C 0198 /UNITS :LIST TEST/ADD/DROP ony those units ified 
C 0199 in the list. List example - TS:0:5:10-12 

0200 use units 0,5,10,11,12 Cunit numbers = 0-63) 


Example of switch usage: 
START/TESTS:1-5/PASS: 1000/E0P: 100 
The effect of this command will be: 


1. Tests 1 5 will be executed. 
2. All  @abae will Py tested 1000 times. 
3. The end of 


pass messages will be 
printed after each 100 pesses only. 


A Switch can be recogni ized the first three charac 
may, for example, type $:1-5” instead of wTESTS: :1- ao 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
C 0196 1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
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Below is a table that specifies which switches can be used by 
ommand. 


each c 

TESTS PASS FLAGS EOP UNITS 
START X x x x x 
RESTART X x X X a 
CONTINUE x x x 
PR x 
DROP x 
ADD x 
PRINT 
DISPLAY 
FLAGS 
ZFLAGS 
EXIT 


SEQ 6 
VAX-11 Bliss-16 V4.0-579 
DISK2:(SCODA.QNA.ZQNAJZQNA1.BLI;1 
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2.35 FLAGS 


Flags are used to set up certain operational parameters such as 
loop i on error. All flags are cleared at startup and remain 
clea until explicitly set using the flags switch. Fl 
ere also cleared after a start command unless set using t 
flag switch. The ZFLAGS command | also be used 

all flags. with the exception of the START and ZFLAGS commands, 
No commands affect the state of the flags; they remain set or 
cleared as specified by the last flag switch. 


FLAG EFFECT 

HOE Halt on error - control is returned to 
runtime services command mode 

LOE Loop on error 

IER* Inhibit all error reports 

IBR* Inhibit all error reports except first 


level (first level contains error type, 
number, PC, test and unit) 

IXR# Inhibit extended error reports (those 
called by PRINTX macro’s) 


PRI Direct messages to line printer 

PNT Print test number as tack executes 

BOE “BELL” on error : } 

UAM Unattended mode (no manual intervention) 

ISR Inhibit statistical reports (does not apply 
be Bae ig once _— do not support statis- 

i report i 

IDR Inhibit prearen dropping of units 

ADR Execute autodrop code 

LOT Loop on test 

EVL Execute evaluation (on diagnostics which 
have evaluation support) 


*error messages are described in section 3.0 


See the XXDP+ User’s Manual for more details on flags. You may 
specify more than one i with the flag switch. For example, 
to cause the program to loop on error, inhibit error reports 
and type a “onerror, you may use the following string: 


/FLAGS:LOE: IER: BOE 


27-Mar-1986 07:35:34 VAX-11 Bliss-16 V4.0- 
04 DISK2: [SCODA.QNA.ZQNA 
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SEQ 8 
ZQNA1 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34 VAX-11 Bliss-16 V4.0-579 
vo1.0 GLOBAL DEFINITION MODULE 26-Mar-1986 17:01:04 DISK2: [SCODA.QNA.ZQNAJZQNA1.BLI;1 
; C 0277 2.4 HARDWARE QUESTIONS 
Pee eS. ee 
C 0280 When a diagnostic is started, the DRS prompts the user for hardware 
C ones information by displaying 


OOOWMNOAANOAOAANAANANANAAAAANAHAAONHAANOD 


“CHANGE HW (L) ?” 


you must answer “Y" after a start command unless the hardware 
information has been “preloaded” using the Setup Utility (see chapter 
6 of the XXDP+ User's Manual). When you answer this question with a 
"Y", the DRS asks for the number of units. You will then be asked the 
following questions for each unit. 


# OF DEVICES (D) ? 

Answer with the number of units to be tested (no default). This answer 
will determine how many times the following questions are asked. 

One (1) device must be specified. 


DEQNA I/0 PAGE ADR (0) 174440 ? 


VERVE 
3 SES REEES 


Serre Pere peer 


Answer with the address of the I/0 register assigned for one 
pol DEQNA devices. The 1/0 page permited are: 174440 


INTERRUPT VECTOR ADR (0) 700 ? 


Answer with the interrupt vector address of the DEQNA module. 
Interrupt vector address for device at AG address 174440 is 700 
oct. and thet for I/0 page address of 17 is 704 oct. 


a a el oe el ed dd od ed od od dd od ead odd ded ee ee 


a 
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SEQ 9 

ZQNAL CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34 VAX-11 Bliss-16 V4.0-579 Page 9 
vO1.0 GLOBAL DEFINITION MODULE 26-Mar-1986 17:01:04 DISK2: (SCODA.QNA.ZQNA}ZQNA1 .BLI;1 (9) 
; C 0310 1 2.5 SOFTWARE QUESTIONS 
es 2 ee ee 
C 0313 1 After you have answered the hardware stions or after a RESTART or 
; C 0314 1 CONTINUE command, the DRS asks for software parameters. These 
; C 0315 1 as govern some diagnostic specific operation modes. You will 
; C 0316 1 prompted by 
; C 0317 1 
; C 0318 1 CHANGE SW (L) ? 
E53 iste iia en eae oy tpicg “YT 

ou wi oc an rameters, answer j wa iad 
; C 0321 1 estate questions and the default values are east ibed in the next 
; f ease : paragraph(s). 
; c 0524 1 DO YOU WANT TO TEST SANITY TIMER (L)? 
; € 0326 1 If you wish to test the Sanity Timer logic, answer by typing “Y”. 
; C 0327 1 Whenever this question is answered with a "Y” following question 
; C 0328 1 will follow: 
; C 0329 1 
3 . ones ; SANITY TIMER TIMEOUT VALUE (0D)? 
0332 i Answer with the TIMEOUT VALUE being a decimal number between 0 and 7. 
; : oats ;: Use table below to select desired TIMEOUT VALUE. 
; € 0335 1 TIMEOUT VALUE TIMEOUT PERIOD IN SEC. 
Re. OO BOS Fe mnie" Cp ainnn tenn esencheas 
; C 0337 1 
; C 0338 1 0 1/4 
; C 0339 1 1 i 
; C 0340 1 2 4 
; C 0341 1 3 16 
; C 0342 1 4 60 
; C 0343 1 5 240 
; C 0344 1 6 960 
; C 0345 1 7 3840 
; C 0346 i 
; : ea : EXTERNAL LOOPBACK MODE (L)? 
: 
; ‘ ys ac : Answer wi nag sg - pean aro pena ed a. the test 
; sequence. ” “1s on es uses external loopback mode. 
; é ose : "N"” inhibits euseution of "TEST 7". 
: 
: : ye 34 : SYSTEM HAS BLOCK-MODE MEMORY (L)? 
; 
; C 0355 1 Answer with "Y" if the system has block-mode memory and "N" if 
; ‘ ones : it has non block-mode memory. 
; 
: oahe : IS LOOPBACK CONNECTOR IN DEQNA (L)? 
: 
. f Osee ; eet att "Y" if loopback connector is in the back of the DEQNA 
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CZQNAEO DEQNA FUNCTIONAL TEST 
MODULE 


GLOBAL DEFINITION 


27-Mar-1986 07:35:34 
26-Mar-1986 17:01:04 


2.6 QUICK START-UP PROCEDURE (XXDP-+) 


To start-up this program: 


° 


° 


° 


Boot XXDP+ 
Give the date 


SEQ 10 
VAX-11 Bliss-16 V4.0-579 Page 10 
DISK2:[SCODA.QNA.ZQNA}ZQNA1.BLI;1 (10) 


ae "R Name", where Name is the name of the BIN file for 
is 


program 
Type “START” 
Answer the “CHANGE HW” question with “Y” 
Answer all the hardware questions 
Answer the “CHANGE SW” question with “Y” 
Answer all the software questions 


When you follow this procedure you will be using only the defaults for 


flags and software parameters. 


previous sections. 


hese defaults are described in the 


SEQ 11 
ZQNA1 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34 VAX-11 Bliss-16 V4.0-579 Page ii 
vO1.0 GLOBAL DEFINITION MODULE 26-Mar-1986 17:01:04 DISK2:{SCODA.QNA.ZQNA}ZQNA1.BLI;1 (11) 
; C 0389 1 3.0 ERROR INFORMATION 
> C0390 1 = —-_—_ nnn nnnnnnnae-- 
; € 0391 1 
; € 0392 1 
; C 0393 1 TYPES OF ERROR MESSAGES 
$C 0394 Lo awww nnn nnnnennnnnee---- 
; C 0395 1 
; C 0396 1 There are three levels of error messages that mey be issued by 
; C 0397 1 . - tic: general, basic and extended. General error messajes 
; C 0398 1 always printed unless the IBE and/or IER flag is set. The general 
; : 0399 : weer message is of the form: 
; C 0400 
; C 0401 1 NAME ER_TYPE ER_NO UNIT_NO TEST_NO PC_ADDR 
; C 0402 1 
; C 0403 1 »where; : 
; C 0404 1 NAME = Di ate name 
; C 0405 1 ER_TYPE = Error t ( all errors are HARD ) 
; C 0406 1 ER_NO = _— r 
; C 0407 1 UNIT_NO = 
; C 0408 1 TEST_NO = Test and subtest where error occurred 
; : pone d PC_ADDR = Program Counter contents 
; 
; C 0411 1 Basic error messages gn Bos — ce some additional 
; C 0412 1 wc about the e givers inted unjese one or 
; C 0413 1 more of the DRS error flag(s) ( TBE. I IXE, is set. These 
: : Sate : messages are printed before the associated general message. 
; 
; C 0416 1 Extended error messages contain supplementary error information such 
; C 0417 1 as ister contents or good/bed data. These are always printed unless 
; © 0418 1 the and/or IER flag. is set. These messages are printed after the 
; ~ 0419 1 assoc i ated re ror message and any associated basic error 
; C 0420 1 ‘ A typlonl « extended error message might have a following 
; C 0421 1 format : 
; C 0422 1 
; C 0423 1 
; & Seen ; TRANSMIT DESCRIPTOR LIST RECEIVE DESCRIPTOR LIST 
; 
; C 0426 1 Flag Word : Flag Word 
; C 0427 1 Low Order Addr Bits Hoon Order Addr Bits 
' E0409 ft Packet Length (byte) pescet Langth Coyte? 
; € e e 
; C 0430 1 Status 1 Status lord 1 
; : Seas : Status Word 2 Status Word 2 
; 





SEQ 12 

ZQNA1 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34 VAX-11 Bliss-16 V4.0-579 Page 12 
v01.0 GLOBAL DEFINITION MODULE 26-Mar-1986 17:01:04 DISK2:(SCODA.QNA.ZQNA}ZQNA1.BLI:1 (12) 
; C 0433 SPECIFIC ERROR MESSAGES 

C0434 2 www nnn nen n nnn nenees 

C 0435 

: —- The following are possible error messages. 

C 0438 DEQNA FATAL ERROR DETECTED 

C 0439 ACTUAL DATA = octal number EXPECTED DATA = octal number 

C 0440 BAD : ACT = octal number EXP = octal number 

0441 BAD TRANSMIT FLAG WORD: ACT = aatel a number EXP = octal number 


BAD TRANSMIT STATUS WORD 1: ACT = octal number = octal number 
RECEIVE FLAG WORD: number 


numbe 
: ACT = octal number EXP = octal number 
: ACT = octal number EXP = octal number 










number EXPECTED = = ented number 
: address CSR = octal numbe 


shebshenscaisacates ee seers 
i 
Fe 


OOOOOAOOAOAOAIAANAOAAAAAAAHANANAAAANANAN|AOAONNMO 
gaeeere 
Punroo 


OOOooN 
geaze 
se ca ca a hd dd ddd od od en ed ad ac oe 


Oono 


octal number EXPECTED = octal number INDEX = decimal number 
DMA OPERATION TAKES TOO LONG 

TOO MANY DEVI 

THERE WAS A POWER FAIL - WAITING 

WAIT ABOUT decimal number MINUTE(S) 

WAIT ABOUT decimal number 

IF NO RESET, TYPE ANY CHARACTER TO EXIT FROM TEST 


SERe 














SEG 13 
ZQNA1 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34 yan-4! I Glive-16 V4.0-57 Page 13 
yo1.0 GLOBAL DEFINITION MODULE 26-Mar-1986 17:01:04 A.QNA. 7QNA ZONAL. BLI;1 (12) 
; C 0486 1 TOR = OstN’ ) 
; € 0487 1 BAD CSR, BITS STUCK AT O: 
; C 0488 1 BAD . BITS STUCK AT 1: 
; C 0489 1 SOFTWARE RESET UNABLE TO CLEAR CSR STATIC BITS: 
; C 0490 1 BAD STATION ADDRESS CHECKSUM: ACT = octal number EXP = octal number 
; C 0491 1 BAD STATION ADDRESS: gretien eddrese 
; C 0492 1 BAD DEQNA I/0 PAGE REGIST registe 
; C 0493 1 BAD CSR. EXPECTED Ri (Bry 4 OBE SET Too 
; C 0494 1 BAD B/D PROM CHECKSUM: = octal number ACT = octal number EXP = octal number 
; C 0495 1 B/D PROM fe OFFSET = octel number ACT = octal number EXP = octal number 
; C 0496 1 BAD ADR = octal number ACT LEV = octal number EXP LEV = octal number 
; & yo sd : REGISTER FAILED TO RESPOND AT ADDRESS: register 
$ 


CO 
PO 


SEQ 14 

ZQNA1 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34 VAX-11 Bliss-16 V4.0-579 Page 14 
Vv01.0 GLOBAL DEFINITION MODULE 26-Mar-1386 17:01:04 DISK2: (SCODA.QNA.ZQNA)ZQNA1.BLI;1 (13) 

C 0499 4.0 TEST SUMMARIES 

a ee 

C 0502 Each test has its own test summary; therefore, <est summaries are not 

C 0503 incl here. 

C 0504 

C 0505 5.0 MAINTENANCE HISTORY 

ee eee 

f 0508 Rev. CZQNACO changed to CZQNADO in March, 1985 by Howard L. Marshall: 

C 0510 Modified DMA Timing Test, Test #14, to allow the test to operate 

C 0511 properly in the faster 16 MHz. KDJi1-B/BF. Changes are noted by “$$$” 

& ote in the comment field of added of changed lines. 


Rev. CZQNADO changed to CZQNAEO March 1986 Dave Scoda 


Added ZQNA6.MAC to correct a bug in the separation of the checksum 

for the Ethernet hardware rom. A code to check for reserved 
and lified bits that allowed the test to run on a busy network. 

Fixed several error reports where actual and expected data were 
reversed. Changed test 6 from an NMI interrupt to a Tx done interrupt; 
it would fail along with test 12 in a 4MB or a ee, 

test 7; it no longer reports a false error. Made test 12 selectable, 
oe gpl ore. Changed error reports for bad descriptors in tests 


OOOOONO 


QOO AANOOONO 
sasaeaeggsssaas 
Oe ee ee be ee ee pe pe pe pe pe oe pe ppp pn pe 


STARTING THE DIAGNOSTIC (DEFAULT IS 0). 


SEQ 15 
ZQNA1 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34 VAX-11 Bliss-16 V4.0-579 Page 15 
V01.0 GLOBAL DEFINITION MODULE 26-Mar-1986 17:01:04 DISK2:(SCODA.QNA. ZQNA}ZQNA1.BLI;1 (14) 
; 0529 1 
; 0530 1 LIBRARY ‘QNALIB’ be 
; ty : REQUIRE ‘BLSMAC.REQ‘ ! DIAGNOSTIC SUPERVISOR LIBRARY . 
: 2022 1 lee 
3 2023 1 ! DEFINE THE NUMBER OF TESTS IN THIS DIAGNOSTIC 
; 2024 1 '.. 
; 2025 i 
3 2026 1 PSECT 
3 2027 1 CODE = AASCODES; 
; 2028 i 
; 2029 1 LITERAL 
: 2030 1 DS$NBR_OF_TESTS = 21; 
s gaan i 
; 2032 1 EQUALS; 
; 2033 i 
; 2034 i POINTER CALL); 
| Soi 
; bee 
; i «= ! THE PROGRAM HEADER IS THE INTERFACE BETWEEN THE DIAGNOSTIC PROGRAM 
; 2038 1 ! AND THE SUPERVISOR. 
; 2039 i '.. 
; 2040 Ii 
; a : HEADER (#ASCII‘CZQNA ' ,MASCII'E’ ,SASCII‘'O’, 120, 0, PRIOO); 
: 
; 2043 1 
; 2044 i ! 
; 2045 1 ! NO POINTERS ARE OPTIONAL USING BLISS. MAKE SURE THE PALO 
; 204 1 ! SECTIONS OF CODE ARE IN PLACE CIN THE CORRECT SKELS),EVEN I 
; 2047 i THE SECTIONS ARE BLANK. 
$ 2049 i ! ARGUMENT FUNCTION 
; 2050 Ii , ll erases - mane 
; 2051 1 ' RPT REPORT CODE 
; 2052 1 ! SW SOFTWARE TABLE 
; 2053 1 ! SFT SOFTWARE TABLE QUESTIONS 
; 2054 1 ' AU ADD CODE 
; 2055 1 ! DU DROP CODE 
; 2056 1 ' TBL ERROR TABLE 
; ed : SETUP ASSEMBLED P-TABLES 
; 
; 2059 1 ' CHANGE THE “HEADER” TO CONTAIN THE PROPER ARGUMENTS. 
; 2060 il t ARE: NAME,REV,PATCH,LONGEST TEST TIME, TYPE 
; 2061 1 WHERE “TYPE” = 0 FOR SEQUENTIAL DIAGNOSTIC AND =1 
| is ' FOR EXERCISER. THERE IS ALSO AN OPTIONAL SIXTH ARGUMENT 
; 2063 ; WHICH SPECIFIES THE PROCESSOR PRIORITY TO BE SET WHEN 
; 
; 1 ! 
; 1 
3 1 
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SEQ 16 


QNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35: VAX-11 Bliss-16 V4.0-579 Page 16 


CZ :35:34 
DISPATCH TABLE 26-Mar-1986 17:01:04 DISK2: [SCODA.QNA.ZQNA)ZQNA1.BLI;1 (15) 


SSBTTL ‘DISPATCH TABLE’ | 
DISPATCH (DS$NBR_OF_TESTS); 


+ 
+ 


THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


CHANGE THE LITERAL DECLARATION OF DS$NBR_OF_TESTS TO BE 
THE NUMBER OF HARDWARE TESTS IN YOUR PROGRAM. 


Z 
? 


a 
+ 


THE ERRTBL MACRO IS REQUIRED WHETHER OR NOT YOU REPORT ERRORS USING 
THE "ERROR" MACRO. THE ERRTBL MACRO EXPANDS INTO FOUR WORDS THAT 
ARE USED BY THE RUNTIME SERVICES DURING AN ERROR CALL: ERROR TYPE, 
ERROR ADDRESS OF ERROR MESSAGE AND ADDRESS OF MESSAGE 

+ ant ontteRE Mt MUST BE ONLY ONE ERRTBL IN ANY PROGRAM. THIS SECTION 


aaah oe ll el ed dl dd ed ed ed ed od ded ed ee 


SEQ 17 


CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34 VAX-11 Bliss-16 ¥4.0-579 Page 17 
GLOBAL DATA SECTION 26-Mar-1986 17:01:04  DISK2:(SCODA.QNA.ZQNA}ZQNA1.BLI;1 (16) 
SSBTTL ‘GLOBAL DATA SECTION’ 
PSECT 
PLIT = $PLIT$, 
OWN = $QWNS$ 
GLOBAL = $GLOB$; 
See 
THE GLOBAL DATA DEFINED IN THIS SECTION IS USED BY MORE THAN ONE 
s 
GLOBAL 
Pee 
COMMUNICATION AREA DECLARATIONS 
RCV_D_LIST : BLOCK [ D_SIZE, WORD ) FIELD ( DL_FIELDS ), 
XMIT_6 LIST : BLOCK [ D_SIZE, WORD } FIELD ( DL FIELDS ): 
RCV_BUFFER : VECTOR { B_SIZE. BYTE }, 
XMIT_BUFFER : VECTOR { B-SIZE. BYTE }: 
PHYS ADR : VECTOR { 22, BYTE J, 
VECTOR { SETUB_SIZE. WORD }, 
TOF TABLE : VECTOR [ 8, WORD }, 
ETH STATION. ADR : VECTOR [ 6, WORD }. 
STA : VECTOR { 4, WORD }: 
PTRN_ tPA : VECTOR { 8, BYTE ] INITIAL ( BYTE ( 


#B8'00000000',, #B'11111111', #B'10101010', #B8'01010101', 
#B'11001100', #8'00110011' . #B'11110000',, #8'00001111')), 


SEQ 18 
ZQNA1 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34 VAX-11 Bliss-16 V4.0-579 Page 18 
v01.0 GLOBAL DATA SECTION 26-Mar-1986 17:01:04 DISK2: [SCODA.QNA.ZQNAJZQNA1 .BLI;1 (17) 
; gies : TARGET _ADR : VECTOR { T_SIZE, BYTE ) INITIAL ( BYTE ( 
. 
; 2125 1 #X'00', 8X'00', 8X'00', #X'00', #X'00', 8X’ 00! ! 1 - MEMORY PATTERN 
® 2126 1 #Xx'55', #X'55', #X‘'55’, #X‘55', #X'55', #Xx'55', ' 2 
; 2127 1 wX' AA’, SX'AA', SX'AA', SX'AA', SX'AA', SSX‘ AA’, ! 3 - MEMORY PATTERN 
; 2128 1 #X'55', #X'55', #X'55', WX'55', BX'55', SX'55', =| 4 - MEMORY PATTERN 
; 2129 1 SX'FF', OX'FF’, SX'FE!) SXF!) SX'FESS SSX! FF! 1 5 - MEMORY PATTERN 
; 21350 1 BX'OO', SX'F4', SX'FA', BX'44', BX'44', BX'55', ' 6 
s 2:31 1 sX'AA', #X'00', 8X'00', #X'00', #X'00', #X'00' ! 7 - MEMORY PATTERN 
s aise i mX'AA', BX'OO', 8X'O2', SX'AA', BX'SA', SX'AA', : 6 
s 2135 i SX' AAR’, 8X'OO', #€X‘'05', 8X'55', 8X'55', #X'55', ; * 
; 2134 1 BX'AR', 8X'OO', 8X'O4', SX'FF', SX'FF', SX'FF', ! 10 
s gis i BX'AA', 8X'OO', SX'04', 8X'OO', #X'00', #X‘00! ! 11 - LOW ETHERNET ADR 
; 2136 1 sX'AA', 8X'00', 8X'04', 8X'18', 6X'B1', 8X'18', ! 12 - HIGH ETHERNET ADR 
s 2137 1 #X'O1', #X'00', #X'OO', 8X'00', #X'00', #X‘00' ! 13 - ALL MULTICAST 
; 2138 1 ®X'AB', SX'AA', SX'AA', SX'AA', SX'AA', BX'AA', ! 14 - MULTI 
; 2139 1 SX'FF', 8X'OO', BX'O1', 8X'0O2', #X‘'O3', 8X'04', ! 15 - ALL MULTICAST 
>; 2140 1 ®X'SS', X‘'05', 8X'O6', 8X'O7', #X'08', #X'09! ! 16 - ALL MULTICAST 
5s geome 2 #X‘'CD', #X'36' ‘26', BX'27', BX'27', #X'49', { i? 
;s e142 1 6X'33', SX'Al', 8X'67', 8X'BB', SX'4C', SX'OF', : 18 
; 2143 1 SX'EB’, #X'BE', SX'C7', 8X'SF', 8X'33', SX'FF', ; 29 
; 2144 1 BX'FF', SX'FF', SX'FF', SX'FF', SX'FF', SX'FF' )), |! 20 - STATION ADDR 


SEQ 19 
ZQNA1 CZQNAEC DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34  VAX-11 Bliss-16 V4.0-579 Page 19 
VO1.0 GLOBAL DATA SECTION 26-Mar-1986 17:01:04  DISK2:[SCODA.QNA.ZQNA]ZQNA1.BLI;1 (18) 
» 2245 2 
; 2146 i BD_PROM_DESCR =: VECTOR [ BD_D_SIZE, WORD ] INITIAL ( WORD ( 
; 2148 1 NEWB , ! BUFFER NOT USED IF 1 
; 2149 1 ’ ' VALID ADDRESS IF 1 
; 2150 1 RCV_BUFFER, ' RCV BUFFER ADDRESS 
; 2151 1 BYTE_COUNT. ' 1/4 THE BYTE COUNT 
; 2152 1 ; ' STATUS WORD 1 
; 2153 1 0. 1 STATUS WORD 2 
; 2154 1 
; 2155 1 NEWB, ! BUFFER NOT USED IF 1 
; 2156 1 V, ' VALID ADDRESS IF 1 
: oe XMIT_BUFFER, ' XMIT BUFFER ADDRESS 
; 2158 1 BYTE COUNT, ' 1/4 THE BYTE COUNT 
; 2159 1 0, i STATUS WORD 1 
; 2160 : 0, ' STATUS WORD 2 
; 2162 1 NEWB, ! BUFFER NOT USED IF 1 
; wes 3 E, ' VALID ADDRESS IF 1 
; 2164 1 0, 1 2 EXTRA WORDS 
; 2165 1 0 )), ! 
; 2166 1 
; nae 
; 2168 : TD16: VECTOR [ 44, WORD ) INITIAL ( WORD ( 
; 2170 1 NEWB, VL , XMIT_BUFFER » -1,0, 0,  ! 4 BYTE DESCRIPTOR 
; on i NEWB. VHL, XMIT BUFFER , -2, 0, 0,  $! 2 BYTE DESCRIPTOR 
; we NEWB, VH , XMIT BUFFER + 2 ,-1,0, 0,  ! 1 BYTE DESCRIPTOR 
; we i NEWB, VE . XMIT BUFFER + 4 , -1,0, 0,  ! 2 BYTE DESCRIPTOR 
; 21% 1 NEW, E , XMIT.DLIST+60 :-1'0°0° + DESCRIPTOR 
; 2175 1 NEWB, V_ , XMITDLIST+ 56 ,-2,0,0,  ! 4 BYTE DESCRIPTOR 
; 217% 1 NEWB, VE , TARGET_ADR + 114 , -3,0, 0.  ! 6 BYTE DESCRIPTOR 
; 2177 : NEWB, E )), 1 END OF DESCRIPTOR 
2179 1 TD13: VECTOR { 34, WORD } INITIAL ( WORD ( 
‘ 
; 2181 1 NEWB, V , XMIT_BUFFER -1 , 0,0,  ! 2 BYTE DESCRIPTOR 
; 2182 1 NEWB, V , XMIT_BUFFER + 2 .-127 , 0, 0. =! 378 BYTE DESCRIPTOR 
; 2183 1 NEW, Vi, ‘ +256 , -1,0. 0,  ! 2 BYTE DESCRIPTOR 
; 2184 1 NEWS, C . XMIT_D_LIST + 48 Ae eae a ee DESCRIPTOR 
; 2185 1 NEWB, VE _, XMIT_BUFFER + 258 , -63, 0,0,  ! 2 BYTE DESCRIPTOR 
; 2186 ‘ NEWB, E )), t END OF DESCRIPTOR 
; 
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SEQ 20 
ZQNA1 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34  VAX-11 Bliss-16 V4.0-579 
v01.0 GLOBAL DATA SECTION 26-Mar-1986 17:01:04  DISK2:(SCODA.QNA.ZQNA]ZQNA1.BLI;1 
; 2188 i RD13: VECTOR [ 64, WORD ] INITIAL ( WORD ( 
: 
; 2190 1 NEWS, V , RCV_BUFFER . -1, 0,0, ! 2 BYTE DESCRIPTOR 
; 2191 1 NEWB. V . RCV BUFFER + 2 , -62 , 0, 0, | 124 BYTE DESCRIPTOR 
; 2192 1 NEWS, V , RCV_BUFFER + 126 , -1,0, 0, ! 2 BYTE DESCRIPTOR 
; 2193 1 NEWS, V , RCV_BUFFER + 128 , -2,0, 0, ! 4 BYTE DESCRIPT 
; 2194 1 NEWB, V , RCV_BUFFER + 132 , -60.,0, 0, ! 120 BYTE DESCRIPTOR 
9 2195 1 NEWB, V ’ V_BUFF + 252 ’ -2 ’ 0, 0, 4 BYTE DESCRIPT 
; 219% 1 NEWB, VC . RCV_D_LIST + 84 , -L, 0,0,  ! CHAIN DESCRIPTOR 
; 2197 1 NEWS, V , RCV_BUFFER + 256 , -3,0, 0, ! 6 BYTE DESCRI 
; 2198 1 NEWS, V , RCV_BUFFER + 262 . -60, 0,0, ! 120 BYTE DESCRIPTOR 
; 2199 1 NEWB, V _, RCV_BUFFER + 382 , -1, 0,0, ! 2 BYTE DESCRIPTOR 
; 2200 1 NEWB, E )), ! END OF DESCRIPTOR 
; 


Page 


20 
(18) 
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SEQ 21 
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CZQNAEO 
GLOBAL DATA SECTION 26-Mar-1986 17:01:04 DISK2: [SCODA.QNA. ZQNA}ZONAI BLI;1 (19) 


See 
' 
o 


HARDWARE AND SOFTWARE P-TABLE STORAGE DECLARATIONS 


TABLE : REF BLOCK [ HWP_SIZE, WORD ] FIELD ( HWP_FIELDS ), 
Sup TABLE : REF BLOCK [ SWP_SIZE, WORD ] FIELD ( SWP_FIELDS ), 


REG_ADR : REF REG_STR FIELD ( IOP_FIELDS ), 
IOP_DATA : REF REG_STR FIELD ( IOP_FIELDS ), 
GET_ADR : REF ADR_STR FIELD ( IOP_FIELDS ), 


MISCELLANEOUS DATA DECLARATIONS 


XBUF _LENGTH : WORD, ! XMIT BUFFER LENGTH IN WORDS 
LENGT : WORD, ! RCV BUFFER LENGTH IN BYTES 
INTERRUPT_FLG : WORD, ! 1 = INT CURED 
QNA_NO : WORD, ! DEQNA UNDER TEST THIS PASS 
ER : WORD, ! ITERATION COUNTER, 
UP_COUNTER : WORD, ! ITERATION COUNTER, INDEX 
DOWN_COUNTER : WORD, ! ITERATION COUNTER, INDEX 
CKSUM : WORD, ' EXPECTED PROM CHECKSUM 
BUF _LENGTH : WORD, ! XMIT BUFFER SIZE IN WORDS 
WORD : WORD, : 
XC_FLAG : WORD INITIAL (0), : 
i : WORD INITIAL (0), : 
ERR_FLAG : WORD INITIAL (0), : 
ERR_C : WORD INITIAL (0), ; 
tmor 1 : word, Iscratch var used by romchk 





SEQ 22 
ZQNA1 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34 VAX-11 Bliss-16 V4.0-579 Page 22 
Vv0O1.0 GLOBAL DATA SECTION 26-Mar-1986 17:01:04 DISK2: [SCODA.QNA.ZQNA)ZQNA1.BLI;1 (20) 
; 22355 1 tee 
; 2236 1 ’ 
: pid : TEMPORARY STORAGE DATA DECLARATIONS 
3 ! 
; 2239 1 !-- 
; 2240 1 
; 2241 1 TMP_IOP_ADR : WORD, ! I/0 PAGE REGISTER ADDRESS 
; e242 1 TMP_REG_DATA : WORD, ! I/0 PAGE REG CONTENTS 
; 2243 1 TEMP 1 : WORD, ! TEMPORARY STORAGE LOCATION 
; 2244 1 TEMP2 : WORD, ! TEMPORARY STORAGE LOCATION 
; 2245 i TEMP3 : WORD, ! TEMPORARY STORAGE LOCATION 
; 2246 1 TEMP4 : WORD, ! TEMPORARY STORAGE LOCATION 
; 2247 1 TEMPS : WORD, ! TEMPORARY STORAGE LOCATION 
; 2248 i TEMP6 : WORD, ! TEMPORARY STORAGE LOCATION 
; 2249 1 TEMP7 : WORD, ! TEMPORARY STORAGE LOCATION 
; 2250 1 TEMPS : WORD, ! TEMPORARY STORAGE LOCATION 
:. 2 TEMP9 : WORD, ! TEMPORARY STORAGE LOCATION 
; 2232 1 Pi : WORD, ! PARAMETER #1 
s des i P2 : WORD, ! PARAMETER #2 
; 2254 1 Ps : WORD, ! PARAMETER #3 
': oe 3 P4 : WORD, ! PARAMET 
; 2256 1 PS : WORD, ! PARAMETER #5 
5 ae 5 TBYTE1 : BYTE, : 
; 2258 1 TBYTE2 : BYTE, : 
s aes i TBYTES : BYTE, ! 
; 2260 1 TBYTE4 : BYTE, : 
s d261 1 TADR1i : WORD, : 
: ia = TADR2 : WORD, : 
; cos : LOGUN : WORD; !logical unit # for >1 devices 
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27-Mar-1986 07:35:34 


CZQNAEO DEQNA FUNCTIONAL TEST 
26-Mar-1986 17:01:04 


GLOBAL DATA SECTION 


SSBTTL ‘GLOBAL TEXT SECTION’ 


tee 


: THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, MESSAGES, 
. AND ASCII INFORMATION THAT IS USED IN MORE THAN ONE TEST. 


GLOBAL BIND 


DESCR_LIST = RCV_D_LIST, 
DATA_BUFFER = RCV_BUFFER, 


tee 
: HARDWARE AND SOFTWARE QUESTIONS 


UPLIT (#ASCIZ‘DEQNA I/O PAGE ADR 1. 

UPLIT (#ASCIZ‘ INTERRUPT VECTOR 

UPLIT (#ASCIZ'DO YOU WANT TO TEST sanity TIMER ‘), 
UPLIT (s#ASCIZ'IS LOOPBACK CONNECTOR IN DEQNA '). 
UPLIT (s#ASCIZ‘ SANITY TIMER TIME-OUT VALUE , 
QSTO6 = UPLIT (#sASCIZ' EXTERNAL LOOPBACK MODE 

QSTO7 = UPLIT (s#ASCIZ‘’SYSTEM HAS BLOCK-MODE MEMORY > é 


G 
ZZ 








VAX-11 Bliss-16 V4.0 
DISK2: (SCODH .QNA. ZQNA3ZONAL BLI;1 


P 23 
21) 


QST1O = UPLIT (#ASCIZ'NXM TEST ? MUST HAVE < 4MB MEMORY’). 
See 
DEVICE ERROR MESSAGES 
MSGOO = UPLIT (s#ASCIZ' DEQNA FATAL ERROR DETECTED '), 
MSGO1 = UPLIT (#ASCIZ'sNSNSA DEQNA ADDRESS: SO06s8A, STATION ADDRESS: '). 
MSGO2 = UPLIT (sASCIZ’sA ACTUAL DATA = s06sA EXPECTED DATA = sO6sN’), 
MSGO3 = UPLIT (sASCIZ'#A XMIT DESCRIPTOR § RCV DESCRIPTOR «N’), 
MSGO4 = UPLIT (#ASCIZ'#A FLAG WORD OGRA SO6SN' ), 
MSGOS = UPLIT (#ASCIz' ADDR DESC BITS/HIGH ADDR S06SN' ), 
MSGO6 = UPLIT (sASCIZ'#A LOW ORDER ADDR BITS SO6KN' ). 
MSGO7 = UPLIT (s#ASCIZ'sA Pp LENGTH ( WD S068N’ ), 
MSGO8 = UPLIT (#ASCIZ's#A STATUS 1 S068N’ ). 
MSGO9 = UPLIT (sASCIZ‘s#A STATUS 2 SO6KN’ ), 
MSG10 = UPLIT (sASCIZ's#A DEQNA CSR REGISTER 
MSG11 = UPLIT (s#ASCIzZ‘#A DEQNA 1/0 PAGE ADR ), 
MSG12 = UPLIT (sASCIZ‘SA BAD CSR: ACT = EXP = sO6SN 
MSGi3 = UPLIT (sASCIZ'SA BAD TRANSMIT FLAG WORD: ACT = s06SA EXP = SO6sN’), 
MSG14 = UPLIT (#ASCIZ'sA BAD TRANSMIT STATUS WORD 1: ACT = s06sA EXP = s06sN'), 
MSG15 = UPLIT (#ASCIZ’#A BAD RECEIVE FLAG WORD: = 068A EXP = 
MSG16 = UPLIT (#ASCIZ'SA BAD RECEIVE STATUS WORD 1: ACT = sO06sA '), 
MSG17 = UPLIT (#ASCIZ'#A BAD LENGTH: ACT = 068A EXP = sO6sN'), 
MSGi8 = UPLIT (#ASCIZ'sA BAD 2 '), 
MSG19 = UPLIT (s#ASCIZ'sA LOOPBA T UNABLE TO SET CA BIT, CSR = s06mN'), 





CK PACKE 
UPLIT (s#ASCIZ‘s#A LOOPBACK PACKET UNABLE TO CLEAR CA BIT, CSR = 


= S065N'), 
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SEQ 24 
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GLOBAL TEXT SECTION 26-Mar-1986 17:01:04  DISK2:{SCODA.QNA.ZQNA]ZQNA1.BLI;1 (21) 
MSG21 = UPLIT (#ASCIZ'#A CA BIT OK, BUT RI BIT IS NOT ON, CSR = sO6SN’), 
MSG22 IT (sASCIZ‘'sA THE CSR WAS SET TOO EARLY, CSR = sO6sN’), 
UPLIT (sASCIZ'#A XL ( BITS 4,5.) TO BE Be RESE I ito OsN’ ), 
UPLIT (#ASCIZ‘#A ( BITS 4:5 ) TO O isn’), 
UPLIT (s#ASCIZ‘ #A 15 ) TO BE SET TO isN’), 
(sASCIZ' 8A 7 ) TO BE SET TO 1sN’), 
UPLIT (sASCIZ‘ sA 2 TO BE SET TO 1sN’). 
UPLIT (s#ASCIZ' sA 2 ) TO BE RESET TO OmN’), 
UPLIT (#ASCIZ‘sA EXPECTED’ ) 
UPLIT (#ASCIZ’ = S068A ACTUAL = S068A EXPECTED = sO6sN’), 
UPLIT (#ASCIZ’ NMA ADR: 068A CSR = s06sN’ ), 





“NWA UNABLE TO RESET DEQNA: 












UPLIT (#ASCIZ' NO SANITY TIMER INTERRUPT DETECTED aN’) 
UPLIT (sASCIZ'sNSA DISCONNECT TRANSCEIVER CABLE FROM BULKHEAD ASSEMBLY 
UPLIT (#ASCIZ‘ sNstA CONNECT L 











uy 
EXPECTED = = sO6sA INDEX = sD4sN’ ), 





2") 
C 
\ ry 
c MINUTECS) -'), 
CHARACTER TO EXIT FROM TESTSN’), 
(sASCIZ T EQUAL TO ZERO sN’), 
UD. © GENT, CO er cece ackccuacceecedc cccacnmecccenccecunenccucececnneua aN’). 















M2 
SEQ 25 

ZQNA1 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34 VAX-11 Blise- 16 V4.0-5 
v01.0 GLOBAL TEXT SECTION 26-Mar-1986 17:01:04 DISK2:{SCODA.QNA. 7QNA}ZONAI . BLI;1 
; 2357 1 MSG60 = UPLIT (sASCIZ’SNsA BAD CSR, BITS STUCK AT 0:sN’‘), 
; 2358 1 MSG61 = UPLIT (sASCIZ’sNSA BAD CSR BITS SUCK AT 1:9: ) 
; 2359 1 MSG62 = UPLIT (sASCIZ‘sNSA SOFTWARE RESET UNABLE TO CLEAR CSR STATIC BITS:sN’), 
; 2360 1 MSG63 = sASCI “CHECKSUM: ACT = sO6A EXP = s06aN’ ) 
i Seeo i MSGS = UPLTT CaAStTy 
3 s 
; 2363 1 MSG66 = UPLIT easeTy 
; 2364 1 MSG67 = UPLIT (#ASCI7Z' 
; 2365 1 MSG68 = UPLIT 
; 2366 1 MSG69 = UPLIT 
; 2367 1 MSG70 = UPLIT C#ASCIZ’ 
; 2368 1 MSG71 = UPLIT (#ASCIZ' 
; 2369 1 msg72 = UPLIT (#ASCIZ' 
; 2370 1 msg73 = UPLIT (#ASCIZ' 
; 2371 1 msg74 = UPLIT (sASCIZ’ ‘ 
; 2372 1 msg/5 = UPLIT (#ASCIZ' 2 SD4KA tual = sO06SN’), 
; a55 : msg76 = UPLIT (#ASCIZ' = @D48A Actual = SO066N’); 
; 
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CZQNAEO DEQNA FUNCTIONAL TEST 
DEFAULT HARDWARE P-TABLE 


SEQ 26 
27-Mar-1986 07:35:34 VAX-11 Bliss-16 V4.0-579 Page 26 
26-Mar-1986 17:01:04 DISK2:(SCODA.QNA.ZQNA)ZQNA1.BLI;1 (22 


SSBTTL ‘DEFAULT HARDWARE P-TABLE’ 
BGNHW ( HP_TABLE ); 


THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF THE 
TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE IS IDENTICAL TO 

STRUCTURE OF THE HARDWARE P-TABLES, AND IS USED AS A “TEMPLATE” 
FOR BUILDING THE P-TABLES. 


PLACE YOUR DEFAULT HAROWARE P stone HERE. THE VALUES te 
SIZE WILL BE USED AS A “TEMPLATE” FOR CREATING ACTUAL P-TABLE 
ENTRIES AND THE DEFAULT VALUES IN THE OPERATOR DIALOGUE. 

hs Faas P-TABLE BUILT AT RUNTIME IS STORED IN SUPERVISOR 


OBAL 
DFSTBL : BLOCK { HWP_SIZE, WORD ] INITIAL ( #0'174440', #0'700' ); 
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SEQ 27 


CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34 VAX-11 Bliss-16 V4.0-579 Page 27 
SOFTWARE P-TABLE 26-Mar-1986 17:01:04 DISK2: : (SCODA.QNA.ZQNA}ZQNA1.BLI;1 (23) 


SSBTTL ‘SOFTWARE P-TABLE’ 


SOFTWARE TABLE CONTAINS VARIOUS DATA wy BY THE 
PROGRAM AS OPERATIONAL PARAMETERS. THESE PARAMETERS ARE 
Le ee TIME AND MAY BE VARIED BY THE OPERATOR 


PLACE YOUR SOFTWARE P-TABLE HERE,USING GLOBAL OR OWN DECLARATIONS 
THIS TABLE IS NOT OPTIONAL. THIS TABLE, UNLIKE THE HARDWARE TABLE, 
WILL CONTAIN THE ACTUAL VALUES ENTERED BY THE OPERATOR. 


BGNSW ( SP_TABLE ); 


SWP_TIMER : WORD INITIAL ( NO ), ! NO SANITY TIMER TEST 
“LBC : WORD INITIAL ( NO ), ! NO LOOPBACK IN DEQNA 
SWP_TOUT_VAL §: WORD INITIAL ( 3), ! TIMEOUT VALUE = 16 SEC. 
~TLOOP : WORD INITIAL C NO $, ! EXTERNAL L 
SWP_BLOCK_MEM : WORD INITIAL ( YES 3, ! BLOCK- Y PRESENT 
a : WORD INITIAL € NO ); ! do NXM test 12 < max memory 
ENDSW; 


ed 


th 
P~) 
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CZQNAEO DEQNA FUNCTIONAL TEST 


PROTECTION TABLE 


SSBTTL ‘PROTECTION TABLE’ 


+ 
+ 


BGNPROT (-1, -1, -1); 
ENDPROT ; 


END 
ELUDOM 


132 
101 


THIS TABLE IS USED BY THE RUNTIME SERVICES TO PROTECT THE LOAD MEDIA. 


27-Mar-1986 07: 
26-Mar-1986 1 


OFFSET INTO P-TABLE FOR CSR ADDRESS 
OFFSET INTO P-TABLE FOR MASSBUS ADDRESS 
OFFSET INTO P-TABLE FOR DRIVE NUMBER 


INSERT BYTE OFFSET FOR yg Rg IN COMMENTS ABOVE. 


REFERS TO THE NUMBER OF BYTES FROM THE BE 

ENTRY TO THE ITEM IN QUESTION.) IF THE PARTICULAR 
NO EAVE ENTRY AS 

GPHARD, IT 

SET TO -1) TO GET THE ITEMS AND COMPARE WITH THOSE SAVED 

IN THE XXDP+ MONITOR. 


ITEM DOES 


F THE UNIT 


~~ 


5:34 


3 
7:01:04 


(OFFSET 


GINNING OF A PTABLE 


-1. WHEN THE RUNTIME 
USES THESE OFFSETS CIF NOT 
BEING REQUESTED MATCHES THE 


I 
LOAD DEVICE, THE RUNTIME SERVICES RETURN AN INCOMPLETE FLAG ON 
THE GPHARD. 


121 
040 


. WORD 
. WORD 
. WORD 
: .WORD 
: .WORD 
: .WORD 
: .WORD 
. WORD 
. WORD 
: .WORD 
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/VO1.0/ 
AMA 
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CZQNAEO DEQNA FUNCTIONAL TEST 
PROTECTION TABLE 


a 


or oorroocouwuw oooro 


wo 
mm 


~< 
—~_ 


y SELSSEEDEGEEELSAADEL 


“WORD 
WORD 
.WORD 
. WORD 
WORD 
. WORD 
. WORD 
.WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
::.BLKW 
:: .BLKW 





$DVTYP 
RPT 








27-Mar-1986 07:35:34 
26-Mar-1986 17:01:04 


VAX-11 Bliss-16 V4.0-579 
DISK2: [SCODA.QNA.ZQNA]ZQNA1.8LI;1 


$DISPATCH 


em ee ne te ggg cuneEnnrSEETRRREEIE se er wn are mR Ta 


O DEQNA FUNCTIONAL TEST 


CZQNAE 
PROTECTION TABLE 


116 101 040 
057 117 
120 101 

107 105 040 

101 104 122 
040 040 
000 


27-Mar-1986 07:35:34 
26-Mar-1986 17:01:04 


1 
1 


<<L $NDHW-L $HWLEN> /2> 
-~3340 


1 
<<L$NDSW-LSSWLEN>/2> 


o w Oo SO 


i-oOo 


‘ 
bo ee 


$PLIT$, RO, D 
/DEQ/ 


/NA / 
41/<57>/0/ 
4 PA/ 


/GE / 
/ADR/ 
/ / 
4 4<00><O0> 
SINT/ 


VAX-11 Bliss-16 V4.0-579 
DISK2: [SCODA.QNA.ZQNA)ZQNA1.BLI;1 


SEQ 30 


P 30 
oe 28) 





SEQ 31 
ZQNA1 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34 VAX-11 Bliss-16 V4.0-579 Page 31 
vO1.0 PROTECTION TABLE 26-Mar-1986 17:01:04 DISK2:[SCODA.QNA.ZQNA)ZQNA1.BLI;1 (24) 
000110 124 131 040 ASCII /TY / 
000113 124 111 115 -ASCII /TIM/ 
000116 105 122 040 ASCII /ER / 
000121 000 <00> 


.ASCII 
000122 111 123 040 P.AAD: .ASCII /IS / 
000 25 _ 





CZQNAE 
PROTECTION TABLE 


OQ DEQNA FUNCTIONAL TEST 


105 


P.AAI: 


P. AAJ: 


VAX-11 Bliss-16 V4.0-579 


27-Mar-1986 07:35:34 
DISK2:(SCODA.QNA.ZQNA)ZQNA1.BLI;1 


— 
56-Mar-1986 17:01:04 matey S| 


/TED/ 
4 4<00><00> 
/¢N8/ 





Q 33 

ZQNA1 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34 VAX-11 Bliss-16 V4.0-579 
V01.0 PROTECTION TABLE 26-Mar-1986 17:01:04  DISK2:{SCODA.QNA.ZQNA]ZQNA1.BLI;1 
000571 040 #075 040 ASCII / = / 
000574 4204S (ati TCi(‘<i‘é lS “ASCII /#06/ 
000577 (0450=Cti‘«ii6=Ci‘<i«é‘ét “ASCII /#N/<00> 

045 101 040 P.AAL: ‘ASCII /#A / 

040 040 040 “ASCII / 
000610 040 040 040 “ASCII / / 
000613 0402'i—i«is—“(«éiéK “ASCII / / 
000616 040 040 040 “ASCII / / 
000621 040 040 040 “ASCII /  / 
000624 040 #040 040 “ASCII /  / 
000627 040 040 040 “ASCII / / 
000632 4«(040'i(ié‘iti(‘<«éi‘éi “ASCII / / 
000635 040 040 040 “ASCII / / 
000640 «11302Ct:—ié=‘«zUS( sid “ASCII /XMI/ 
000643 «124 isi«iD—“‘«i‘éi “ASCII /T D- 
000646 105 123 103 “ASCII = /ESL/ 
000651 122 i111 120 “ASCII /RIP/ 
000654 124 #117 ~# 122 “ASCII /TOR/ 
000657 040 040 040 “ASCII /  / 

040 122 103 “ASCII / RC/ 
000665 126 040 104 “ASCII /V D/ 
000670 105 123 #103 “ASCII /ESC/ 
000673 4=s«122,—Sts—«d:s (a<sestiéi OD “ASCII /RIP/ 
000676 124 #117 ~=§ 122 “ASCII /TOR/ 
000701 040 045 #116 “ASCII / #N/ 
000704 000 000 “ASCII <00><00> 
000706 045 + # 101 040 P.AAM: .ASCII /s#A / 
000711 040 040 040 “ASCII /  / 
000714 040 040 106 “ASCII / F/ 
000717 114s‘ 107 “ASCII /LAG/ 
000722 420402=Ct—ié«i127—Stts—séD217 “ASCII / WO/ 
000725 122 104 040 “ASCII /RD / 
000730 040 040 040 i, 7 
000733 040 040 040 “ASCII / 
000 040 040 040 “ASCII / / 
000741 040 040 040 “ASCII /  / 
000744 040 04 040 “ASCII / / 
000747 (040'i—(itsé«éiS “ASCII / #/ 
000 117s (066—iti«éS “ASCII /06s6/ 
000 101 040 040 “ASCII /A / 
000760 040 040 040 m/s 
000763 «(040'i(i‘i—(‘<é«i‘éi KO “ASCII / / 
000766 040 040 040 Maen fs 
000771 040 045 ~ =~» i117 “ASCII / #0/ 
000774 066 045 #116 “ASCII /66N/ 
000777 000 ASCII <00> 
001000 045 101 040 P.AAN: .ASCII /#A / 
001003 (040i(i‘iC“(<é‘ét MO “ASCII / / 
00100 040 040 &# 101 “ASCII / A/ 
001011 104 104 122 “ASCII / 
001014 040 104 105 “ASCII / DE/ 
001017 «s«123'—Cti‘«Ci20S~Stié«i KD “ASCII /SC / 
001022 (102239 11 124 “ASCII /BIT/ 





SEQ 34 


ZQNAL CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34 VAX-11 Bliss-16 V4.0-579 Page 34 
v01.0 PROTECTION TABLE 26-Mar-1986 17:01:04 DISK2:(SCODA.QNA.ZQNAJZQNA1.BLI;1 (24) 
001025 123 057 110 -ASCII /S/<57>/H/ 
111 107 110 -ASCII /IGH/ 
001033 040 101 104 -ASCII / AD/ 
001036 104 122 -ASCII /DR / 
001041 040 040 045 -ASCII / #/ 
1044 117 066 045 -ASCII /06s/ 
001047 101 040 -ASCIT /A / 
001052 040 040 040 . 2 ae 
001055 040 040 040 -ASCII / / 
001060 040 040 . +) i ae 
001063 040 045 117 -ASCII / #0/ 
1066 066 045 116 -ASCII /6%N/ 
001071 000 .ASCII <0O0O> 
001072 045 101 040 P.AAOQ: .ASCII /#A / 
1075 040 040 , =: Gy Ae 4 
1100 040 040 114 -ASCII / L/ 
001103 117 127 .ASCII /OW / 
040 117 -ASCII / OR/ 
001111 104 105 122 .ASCII ’ 
001114 040 101 104 -ASCII / AD/ 
001117 104 122 040 -ASCII /DR / 
i1 102 111 124 -ASCII /BIT/ 
001125 123 040 040 -ASCII /S / 
001130 040 040 -ASCII / / 
001133 040 045 -ASCII / &/ 
001136 117 066 045 -ASCTI /068/ 
001141 101 040 040 -ASCII /A / 
001144 040 040 .ASCII 
001147 040 040 040 -ASCII / / 
001152 040 040 . = > Ge sea 4 
001155 040 045 117 -ASCII / #0/ 
001160 066 045 116 -ASCII /6sN/ 
001163 000 -ASCII <00> 
001164 045 101 040 P.AAP: .ASCII /#A / 
001167 040 040 040 aa fo 
001172 040 040 120 -ASCII / P/ 
1175 101 103 113 -ASCII /ACK/ 
1200 105 124 -ASCII /€T / 
001203 114 105 116 -ASCII /LEN/ 
001206 107 124 110 -ASCII /GTH/ 
1211 040 050 040 -ASCII /( / 
001214 127 104 040 -ASCIZ /WD / 
121 051 040 040 -ASCII /) / 
040 040 A ae eg 
040 040 045 -ASCII / #/ 
001230 117 066 045 -ASCII /068/ 
001233 101 040 040 -ASCII /A / 
001236 040 040 040 -ASCII / / 
001241 040 040 040 . «6 Gi ae 4 
1244 040 040 . => a See a 
001247 040 045 117 -ASCII / #0/ 
1252 066 045 116 ASCII /6sN/ 
001255 000 ASCII <00> 





S333 


FRSSSESSESESE 


SSSSSEUGRESIFESTESH 


a 
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BERR 
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CZQNAE 
PROTECTION TABLE 
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SREREE 


RB 


S333 


© DEQNA FUNCTIONAL TEST 


P.AAQ: 


P.AAR: 


P.AAS: 


-ASCII 
A 


SCII 


SSLSATSA AA SAS 
toe” 
~“A “AAR AN AAR SS 


27-Mar-1986 07:35:34 
26-Mar-1986 17:01:04 


SEQ 35 
VAX-11 Bliss-16 V4.0-579 
DISK2: [SCODA.QNA.ZQNA)ZQNA1.BLI;1 


Page 35 
0 28) 





SEQ 36 
ZQNA1L CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34 VAX-11 Bliss-16 V4.0-579 Page 36 
v01.0 PROTECTION TABLE 26-Mar-1986 17:01:04 DISK2:(SCODA.QNA.ZQNA)ZQNA1.B8LI;1 (24) 
001511 040 040 040 -ASCII / / 
001514 040 045 -ASCII / #/ 
001517 117 066 045 -ASCII /06%/ 
001522 116 000 .ASCII /N/<00> 
001524 045 101 040 P.AAT: .ASCII /#A / 
001527 040 040 040 Mees / 
1532 040 040 104 -ASCII / D/ 
001535 105 121 116 -ASCII /E€QN/ 
001540 101 111 .ASCII /A 
001543 057 117 040 -ASCII <57>/0 / 
001546 120 101 107 .ASCII /PAG/ 
001551 105 040 101 .ASCII /E A/ 
001554 104 122 040 .ASCII /OR / 
1557 040 040 040 - + i ae 
001562 040 040 040 -ASCII / / 
1565 046 040 040 as ¢ #f 
001570 040 040 040 .ASCII / / 
001573 040 040 040 a COCOA 
001576 040 040 045 -ASCII / #/ 
001601 117 066 045 -ASCII /068/ 
1604 116 045 116 -ASCII /NsSN/ 
001607 000 -ASCII <00O> 
001610 045 101 040 P.AAU: .ASCII /#A / 
001613 102 101 104 -ASCII /BAD/ 
001616 103 123 -ASCII / CS/ 
1621 22 072 040 -ASCII /R: / 
1624 101 103 124 -ASCII /ACT/ 
001627 040 075 040 -ASCII /2/ 
001632 045 117 066 -ASCII /#06/ 
001635 045 101 040 -ASCII /#A / 
1640 105 30 120 -ASCII /EXP/ 
001643 040 075 040 -ASCII / = / 
1646 045 117 066 -ASCII /#06/ 
001651 045 116 000 -ASCII /#N/<00> 
001654 045 101 040 P.AAV: .ASCII /#A / 
001657 102 101 104 -ASCII /BAD/ 
001 040 122 .ASCII / TR/ 
001665 101 116 123 -ASCII /ANS/ 
001670 115 111 124 crt /MIT/ 
73 040 114 ; / FL/ 
001676 101 107 040 ASCII /AG / 
001701 127 117 122 ASCII / 
04 104 072 040 -ASCII /D: / 
001707 101 103 124 ASCII /ACT/ 
12 075 040 ASCII /#/ 
001715 045 117 066 ASCII /#06/ 
001720 045 101 040 I /#A / 
1723 105 i 120 ASCII /€XP/ 
001726 040 075 040 ASCII /#2/ 
001731 045 117 066 ASCII /#06/ 
001734 045 116 000 -ASCII /#N/<00> 
001737 .ASCII <00> 
001740 045 101 040 P.AAW: .ASCII /#A / 








SEQ 37 
ZQNA1 CZQNAEO DEQNA FUNCTIONAL TEST 27-Ner-1986 07:35:34  VAX-11 Bliee-16 v4.0-579 Page 37 
v01.0 PROTECTION TABLE 26-Mar-1986 17:01:04  DISK2:{SCODA.QNA.ZQNAIZONAL .BLI-1 (24) 
001743 102 101 104 .ASCII 
1746 040 124 #422 ASCIT 
001751 101 116 + 158 “ASCII 
1754 115 in 1Da “ASCII 
001757 «(40 154 “ASCII 
172 101 128 “ASCII 
001765 123 4040 ~ «#157 ASCII 
001770 117 #122 04 ASCII 
001773 +040 «=90061—Sti=ié«éTD “ASCII 
00177% 040 «©1101 4108 “ASCII 
002001 124 040 O75 “ASCII 
002008 4«40si(‘iéiStCP ASCII 
002007 +«06B—“‘<i‘i‘éiSOC«d “ASCII 
002012 +040 «108—Sts«1: 800 ASCII 
002015 120 040 O75 “ASCII 
002020 040 045 #117 “ASCII 
002023 (066~Ctii«St~*«éid*iC ASCII 
002026 000 ~—«- 000 “ASCII 
002030 «045-—Sti‘«iNd P.AAX: “*SCIT 
102 101 4104 * SCqI 
00203 040 «©7312 7 “ASCII 
002041 103 #4105 211 ASCII 
002044 +126 ~=—«108 ASCII 
002047 +106 «#24114~Ss«4001 ASCII 
002052 +«1072«««04OSté«dL‘F “ASCII 
002055 117 «122—St—té«*1088 
002060 072 49040 ~@# «101 “ASCII. /: A/ 
002063 «108 «| 1nhti(iét KO : eT / 
002066 040 «2S : ary, 
002071 #117 #4066 3»= Oe 706% / 
002074 +~«101.s'i‘<‘éikkCOCdS : 7m E/ 
7 120 “ASCII /XP 7 
002102 75 4 040ti«éS /= %/ 
1 117 066—t«S 706%6/ 
002110 116 000 7N/ «00> 
002112 045 101 040 P.AAY: | 6A 7 
002115 102 101 4104 : 7BAD/ 
040 22 1} 7 RE/ 
002123 #103 #4105 ~&#«i11 , ICET/ 
12% 10 040 NE / 
002131 123 128 101 7STA/ 
134 128 455 423 7TUS/ 
002137 +20404«2C«s«a33?té«*SYTF , 7 WO/ 
142 122 104 080 ; 7RD / 
—-. hlUmhCUl “RecIt AGT? 
i TS Att /a06/ 
002161 045 101 040 ‘6h / 
164 (108—ti(‘iéiad 120 : 7EXP/ 
a Se i: “ASCII 7#06/ 
002175 «0S (itiéiiGSC(“i«é‘«iO “ASCII /91N/<00> 





ZQNA1 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34  VAX-11 Blies-16 V4.0-579 ~~ Page 38 
v01.0 PROTECTION TABLE 26-Mar-1986 17:01:04  DISK2:{SCODA.QNA. ZQNATZONAL GLI; 1 (24) 
O45 101 040 P.AAZ: 


002200 
002203 102 101 104 
122 


106 
002222 
s03888 193 
002233 040 
002236 124 
002241 040 
002244 066 
002247 045 101 040 
002252 120 
002255 040 
002260 066 
002263 000 
002266 040 
00227: 


P. ABA: 





CZQNAEO DEQNA FUNCTIONAL TEST 


PROTECTION TABLE 
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103 


P. ABD: 


P. ABE: 


P.ABF: 


a 
=88 4 


a 


ii 


SS ae 

Py ~ Om Zz 
a" iP 
~A~A“A “”AA SAAR SS 


/0 B/ 


27-Mar-1986 07:35:34 


VAX-11 Bliss-16 V4.0-579 
26-Mar -1986 17:01:04 Z 


Pace 39 
DISK2:(SCODA.QNA.ZQNA]ZQNA1.BLI;1 0 (24) 





CZQNAEO DEQNA FUNCTIONAL TEST 
PROTECTION TABLE 


040 122 

105 123 105 
124 040 124 
060 


27-Mar-1986 07: 


26-Mar-1986 17 


3 
:0 


5: 
1: 


34 
04 


SE 
VAX-11 Bliss-16 V4.0-579 ne 
DISK2: [SCODA.QNA.ZQNA }ZQNA1.BLI;1 





P 40 
24) 


ZQNA1 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34 VAX-11 Bliss-16 V4.0-579 Page 41 
v01.0 PROTECTION TABLE 26-Mar-1986 17:01:04 DISK2: [SCODA.QNA.ZQNA}ZQNA1.BLI; 1 (24) 
003122 124 040 124 -ASCII /T T/ 

003125 117 040 061 -ASCII /0 1/ 

003130 045 116 000 -ASCII /N/<00> 

003133 000 -ASCII <00> 

003134 045 101 040 P.ABK: .ASCII /#A / 


003137 116 111 040 -ASCII /NI / 
003142 050 040 .ASCIT 





ZQNA1 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34 VAX-11 Bliss-16 V4.0-57 Page 42 
vo01.0 PROTECTION TABLE 26-Mar-1986 17:01:04 DISK2: [SCODA.QNA.ZQNA)ZQNA1.BLI;1 (24) 





CZQNAEO DEQNA FUNCTIONAL TEST 
PROTECTION TABLE 





SEQ 43 
27-Mar-1986 07:35:34 VAX-11 Bliss-16 V4.0-579 
26-Mar-1986 17:01:04 


DISK2: [SCODA.QNA.ZQNA)ZQNA1.BLI;1 





CIR an ESOT IO IIE PNT TTI SE RRND SRE 






Page 43 
28) 


SEQ 44 
CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34 VAX-11 Bliss-16 V4 . 
PROTECTION TABLE 26-Mar-1986 17:01: 


.0-5 
04 DISK2: : (SCOD DA. QNA ,Z ZQNA}ZONAI BLI;1 










SEQ 4 
QNA1 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34 VAX-11 Bliss-16 V4.0-579 al Page 45 
vO1.0 PROTECTION TABLE 26-Mar-1986 17:01:04 DISK2: [SCODA.QNA.ZQNA}ZQNA1.BLI;1 (24) 
004276 103 124 117 -ASCII /CTO/ 
poet of, 122 054 040 -ASCII /R, / 


110 
040 


ZQNAEO DEQNA FUNCTIONAL TEST 


C 
PROTECTION TABLE 


116 


P.ACA: 


P.ACD: 


. ASCII 
. ASCII 


27-Mar-1986 07: 


26-Mar-1986 17 


3 
:0 


5 
1 


34 
04 


SEQ 46 
DISK2: [SCODA.QNA.ZQNA )ZQNA1 .BLI;1 


VAX-11 Bliss-16 V4.0-579 





46 
matey’ 





SEQ 47 , 
ZQNA1 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34 VAX-11 Bliss-16 V4.0-579 Page 47 
VO1.0 PROTECTION TABLE 26-Mar-1986 17:01:04 DISK2: [SCODA.QNA.ZQNA)ZQNA1.BLI;1 (24) 
004763 101 040 106 -ASCII /A F/ 
004766 125 123 105 -ASCII /USE/ 
-ASCII / OK/ 





004771 040 117 113 
040 02 





CZQNAEO 
PROTECTION TABLE 


DEQNA FUNCTIONAL TEST 


PACH: 


P.ACI: 


P ACJ: 


SEQ 48 
VAX-11 Bliss-16 V4.0-579 
DISK2: [SCODA.QNA.ZQNA)ZQNA1.BLI;1 


27-Mar-1986 07:35:34 


P 48 
26-Mar-1986 17:01:04 oF (24) 





CZQNAEO DEQNA FUNCTIONAL TEST 


PROTECTION TABLE 


123 
055 


P.ACN: 


P.ACO: 


P.ACP: 


' 


: 


RPRPAPAPAPAPAERPRPAPRERERE 





SEQ 49 
VAX-11 Bliss-16 V4.0-579 


27-Mar-1986 07:35: 
1 DISK2: (SCODA.QNA.ZQNA)ZQNA1.BLI;1 


34 Page 49 
26-Mar-1986 17:01:04 (24) 


/AL / 
/T0 / 
4 
/0 &/ 
4N/<00><00> 
/ 
fa---/ 
f---/ 
f---/ 
f---/ 
fn---/ 
f---/ 
4 ---/ 





SEQ 50 

ZQNAL CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34 VAX-11 Bliss-16 V4.0-579 Page 50 
V01.0 PROTECTION TABLE 26-Mar-1986 17:01:04  DISK2:{SCODA.QNA.ZQNA]ZQNA1.BLI:1 (24) 
005707 055 055 055 ASCII /---/ 
005712 055 055 055 "ASCII /---/ 
005715 055 055 055 "ASCII /---/ 
005720 055 055 055 “ASCII /---/ 
005723 055 055 055 "ASCII /---/ 
005726 055 055 055 “ASCII /---/ 
005731 055 055 055 "ASCII /---/ 
005734 055 055 055 “ASCII /---/ 
005737 055 055 055 “ASCII /---/ 
005742 055 055 ME fis<e/ 
005745 055 055 EE fooes 
005750 055 055 055 EE fones 
005753 055 055 .ASCII /---/ 
005756 055 055 i. ey 
005761 055 055 045 -ASCII /--#/ 
005764 116 000 “ASCII /N/<00> 
005766 116 045 P.ACQ: .ASCII /sNs/ 
005771 101 040 102 “ASCII /A B/ 
005774 101 104 040 “ASCII /AD / 
005777 103 123 122 “ASCII /CSR/ 
006002 054 040 102 ASCII B/ 
006005 111 124 123 “ASCII /1TS/ 
006010 040 123 124 “ASCII / ST/ 
006013 125 103 113 ASCII / 
006016 040 101 124 “ASCII / AT/ 
006021 040 072 “ASCII / 0:/ 
006024 045 116 000 “ASCII /8N/<00> 
006027 000 : <00> 
006030 045 116 045 P.ACR: .ASCII /sNs/ 
006033 101 040 102 “ASCII /A B/ 
006036 101 104 040 -ASCII /AD / 
006041 103 123 122 ; /CSR/ 
006044 054 040 102 : /, B/ 
006047 111 124 123 ; 
006052 040 123 124 ; / $T/ 
006055 125 103 113 ASC 
006060 040 101 -ASCII / AT/ 
006063 040 061 072 “A 4 is/ 
006066 045 116 : /#N7<00> 
006071 000 . <00> 
006072 045 116 045 P.ACS: .ASCII /sNS/ 
006075 101 040 123 : “A S/ 
006100 117 106 124 /OFT/ 
006103 127 101 122 : /WAR/ 
006106 105 040 122 j /E R/ 
006111 105 123 105 ASCII / 
006114 124 040 125 ASCII U/ 
006117 116 101 102 “ASCII /NAB/ 
006122 114 105 ASCII / 

125 124 117 470 / 
006130 103 114 105 “ASCII /CLE/ 
006133 101 122 “ASCII /AR / 
006136 103 123 122 “ASCII /CSR/ 








SEQ 51 
ZQNA1 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34 VAX-11 Bliss-16 V4.0-579 Page 51 
v01.0 PROTECTION TABLE 26-Mar-1986 17:01:04  DISK2:(SCODA.QNA.ZQNA]ZQNA1.BLI;1 (24) 
006141 040 123 124 ASCII / ST/ 
006144 101 124 111 .ASCII /ATI/ 
006147 03 040 102 -ASCII /C B/ 
111 124 123 -ASCII /ITS/ 
006155 072 045 116 .ASCII 
006160 000 000 -ASCII <00><00> 
006162 045 116 045 P.ACT: ASCII 
006165 101 040 102 -ASCII /A B/ 
101 104 -ASCII 
123 124 101 -ASCII /STA/ 
124 111 117 .ASCII /TIO/ 
116 040 101 .ASCII 
104 104 122 .ASCII 
105 123 3 .ASCII 
040 103 110 ASC 
105 103 113 “ASETT 
$53 340 13 “ASEH 
103 124 040 .ASCII 
075 040 045 .ASCII 
117 066 045 .ASCII 
meee i ise be fen 
006245 075 040 045 “ASETT 
a ree 
os ties P.acu: ‘ASct? 
101 040 102 .ASCII 
101 104 040 : 
12 124 101 ASC] 
124 111 117 .ASCI 
040 ASC: 
104 122 aC: 
1 123 123 CI 
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SEQ 52 

ZQNA1 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34 VAX-11 Bliss-16 V4.0-579 Page 52 
v01.0 PROTECTION TABLE 26-Mar-1986 17:01:04 DISK2: [SCODA.QNA.ZQNA)ZQNA1.BLI;1 (24) 
006375 130 120 105 -ASCII /XPE/ 
006400 103 124 105 ASCII /CTE/ 
006403 104 040 122 ASCII /D R/ 
006406 114 040 050 ASCII /L (/ 
006411 040 102 111 -ASCII / BI/ 
006414 124 040 065 -ASCII /T S/ 
006417 040 051 -ASCII / ) / 
006422 124 117 040 -ASCII /TO / 

102 105 040 Aare /BE_/ 

123 105 124 -ASCII /SET/ 
006433 124 117 -ASCII / T0/ 
006436 045 -ASCII / On 
006441 116 000 000 -ASCII /N/<00><00> 

045 116 045 P.ACX: .ASCII /s6Ns/ 
006447 101 040 102 -ASCII /A B/ 
006452 101 104 040 -ASCII /AD / 
006455 102 057 104 ASCII /B/<57>/D/ 
006460 122 -ASCII / PR/ 
006463 117 115 040 -ASCII /0M / 
006466 103 110 105 Aoeat / 
006471 103 113 123 -ASCII /CKS/ 
006474 125 115 072 -ASCII /UM:/ 
006477 040 11i 116 -ASCII / IN/ 

302 104 105 130 -ASCII /DEX/ 

040 075 040 -ASCII / = / 
006510 045 117 066 -ASCII /#06/ 
006513 045 101 040 -ASCII /#A / 
006516 101 103 124 -ASCII /ACT/ 
006521 040 ASCII / = / 
006524 045 117 066 -ASCII /#06/ 
006527 045 101 040 -ASCII /#A / 
006532 105 1 120 . ASCII / 
006535 040 040 -ASCIT / = / 
006540 045 117 066 ‘Aeers 
ooerer oan 116 000 : /9N/<00> 
006551 101 

534 


116 045 P.ACY: .ASCII /sNs/ 
040 : B/ 





CZQNAEO DEQNA FUNCTIONAL TEST 
PROTECTION TABLE 


075 040 045 

117 066 045 

116 000 

116 045 P.ACZ: 
040 02 


27-Mar-1986 07:35:34 
26-Mar-1986 17:01:04 


SEQ 53 


VAX-31 Bliss-16 V4.0-579 


DISK2: | SCODA.QNA. ZQNA} 


7 
ZQNA1.BLI;1 





P 53 
28) 





CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34  VAX-11 Bliss-16 V4.0-579 
PROTECTION TABLE 26-Mar-1986 17:01:04  DISK2:{SCODA.QNA.ZQNAIZONA1.8LI;1 * °%*c285 


ODE ee RR GATT ARTES OE Ee Se re 


CZQNAEO DEQNA FUNCTIONAL TEST 


PROTECTION TABLE 


117 


P. ADF: 


P.ADG: 


PSECT 


RCV.D.LIST:: 
XMIT.D.LIST: : 
RCV.BUFFER: : 


XMIT. BUFFER: : 








27-Mar-1986 07:35:34 
26-Mar-1986 17:01:04 


VAX-11 Bliss-16 V4.0-579 
DISK2: [SCODA.QNA.ZQNA)ZQNA1.BLI;1 


Se 


ZQNA1 

vo1.0 

010400 
010426 
011426 
011446 
011462 
011472 


000 
000 
000 
000 
000 
000 
125 
125 
125 
125 
125 
125 
252 
252 
252 
252 
252 
252 
125 
125 
125 
125 
125 
125 
377 
377 
377 
377 
377 
377 
000 
364 


SEQ 56 
CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34 VAX-11 Bliss-16 V4.0-579 Page 56 
PROTECTION TABLE 26-Mar-1986 17:01:04 DISK2: (SCODA.QNA.ZQNA)ZQNA1.BLI;1 (24) 
.BLKW 2000 
PHYS.ADR:: 
SETUP .BUFFER: : 
, 400 
IOP .TABLE:: 
.BLKW 10 
ETH.STATION. ADR: : 
.BLKW 6 
STATION.ADR:: 
.BLKW 4 
PTRN.TABLE:;: 
BYTE 0O 
BYTE 377 
BYTE 252 
.BYTE 125 
.BYTE 314 
.BYTE 63 
._BYTE 360 
BYTE 17 
TARGET. A 
.BYTE 0O 
BYTE O 
BYTE 0 
BYTE O 
-<BYTE 0 
BYTE O 
BYTE 125 
-BYTE 125 
BYTE 125 
-<BYTE 125 
-BYTE 125 
BYTE 125 
BYTE 252 
.BYTE 252 
ee 
‘BYTE 33 
BYTE 125 
-BYTE 125 
-BYTE 125 
BYTE 125 
BYTE 125 
-BYTE 125 
-BYTE 377 
.<BYTE 377 
BYTE 377 
-<BYTE 377 
.BYTE 377 
-BYTE 377 
BYTE O 


re] 
~< 
4 
m 





CZQNAEO DEQNA FUNCTIONAL TEST 
PROTECTION TABLE 


372 
04 


te 
a Ou 


MMor 
at 


BooR BRR 


Ww 
~J 
~J 


377 
377 
252 
0 

4 
0 

0 

0 
252 
0 

4 
30 
201i 
30 
1 

0 

0 

0 

0 

0 
253 
252 
252 
252 
252 
252 
377 


27-Mar-1986 07:35:34 
26-Mar-1986 17:01:04 


VAX-11 Bliss-16 V4.0-579 = 
DISK2:{SCODA.QNA.ZQNA)ZQNA1.BLI;1 


Page 57 
24) 





CZQNAEO DEQNA FUNCTIONAL TEST 
PROTECTION TABLE 


TD1i6: : 


000 BYTE 
001 BYTE 
002 BYTE 
003 BYTE 
004 .BYTE 
125 .BYTE 
005 .BYTE 
006 .BYTE 
007 .BYTE 
010 .BYTE 
O11 BYTE 
315 BYTE 
066 BYTE 
046 BYTE 
047 BYTE 
047 BYTE 
111 .BYTE 
063 .BYTE 
241 .BYTE 
147 .BYTE 
273 .BYTE 
114 .BYTE 
237 -BYTE 
393 .BYTE 
276 .BYTE 
307 .BYTE 
217 -BYTE 
063 .BYTE 
377 .BYTE 
377 .BYTE 
377 -BYTE 
377 BYTE 
377 -BYTE 
377 .BYTE 
377 BYTE 
BD .PROM.DESCR: : 
100000 . WORD 
100000 WORD 
000400‘ . WORD 
176000 . WORD 
000000 . WORD 
000000 . WORD 
100000 - WORD 
100000 . WORD 
004400' . WORD 
176000 . WORD 
000000 - WORD 
000000 . WORD 
100000 . WORD 
000000 . WORD 
000000 . WORD 


27-Mar-1986 07:35:34 
26-Mar-1986 17:01:04 


© 


NOU Buin 
Ul 


10 


SEQ 58 
VAX-11 Bliss-16 V4.0-579 
DISK2: [SCODA.QNA.ZQNA)ZQNA1.BLI;1 


P 58 
9 28) 





CZQNAEO DEQNA FUNCTIONAL TEST 
PROTECTION TABLE 


TD13: : 


55588 


58 


. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 

WORD 
. WORD 
. WORD 
. WORD 
. WORD 
- WORD 
. WORD 
. WORD 
. WORD 

WORD 
. WORD 
. WORD 

WORD 
. WORD 
. WORD 

WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 


27-Mar-1986 07:35:34 
26-Mar-1986 17:01:04 


- 100000 
-77600 
oo 

0 

0 

- 100000 
-77500 
es 

0 

0 

- 100000 
-77700 

= ght 
0 

0 

- 100000 
-60000 
oe 
0 

0 

-100000 
20000 

o: yaidadmeancaili 
0 

0 

~100000 

- 100000 
XMIT.D.LIST+70 


- 100000 

- 100000 
ren 
0 


0 
- 100000 
- 100000 


VAX-11 Bliss-16 V4.0-57 
DISK2: [SCODA.QNA.ZQNA}ZQNA1.BLI;1 


9 


P 59 
oe 28) 





CZQNAEO DEQNA FUNCTIONAL TEST 
PROTECTION TABLE 


RDi3:: 


. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
.BLKB 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
- WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
- WORD 
. WORD 
. WORD 
. WORD 
. WORD 
- WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 


27-Mar-1986 07:35:34 
26-Mar-1986 17:01:04 


XMIT .BUFFER+2 
-177 


0 

- 100000 

- 100000 

a 
0 

0 

- 100000 

40000 

= plata ad 

0 

0 

- 100000 

-60000 

my er PER AOe 


-100009 

2 |e ilies 
0 

0 

-100000 

- 100000 

-: (iiualalatliaiaes 
0 

0 

- 100000 

- 100000 

RCV .BUFFER+204 


VAX-11 Bliss-16 V4.0-579 
DISK2: (SCODA.QNA.ZQNA)ZQNA1 .BLI;1 


SEQ 60 


P 60 
oe 28) 





012376 
012400 
012402 
012404 
012406 


OQ DEQNA FUNCTIONAL TEST 


CZQNAE 
PROTECTION TABLE 


SOSSSSSSSS55SS558809008888 50009985 


Py 


27-Mar-1986 07:35:34 
26-Mar-1986 17:01:04 


-74 
0 


0 

- 100000 

- 100000 
eens 
0 

0 

- 100000 

-40000 
‘fatale 
0 

0 

- 100000 

- 100000 
‘easels 
0 

0 

- 100000 


RCV. BUFFER+576 


a ee ee ee 


VAX-11 Bliss-16 V4.0-579 


SEQ 61 


DISK2: (SCODA.QNA.ZQNA)ZQNA1.BLI;1 


P 61 
oe 28) 





KS 


ZQNA1 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:34  VAX-11 Bliss-16 V4.0-57 Page 62 
v01.0 PROTECTION TABLE 36-Mar-1986 17:01:04  DISK2:(SCODA.QNA-ZQNA}ZQNAI .BLI;1 (24) 
.BLKW 1 
012410 COUNTER: : 
.BLKW 1 
012412 UP .COUNTER: : 
012414 DOWN. COUNTER: : 
.BLKW 1 
012416 CHECKSUM: : 
.BLKW i 
012420 BUF .LENGTH: ; 
.BLKW i 
012422 CSR.WORD: : 
.BLKW 1 
012424 000000 XC.FLAG:: 
.WORD 0 
012426 000000 ERR.NUMBER: : 
.WORD 0 
012430 000000 ERR.FLAG:: 
.WORD 0 
012432 000000 ERR .COUNT: : 
-WORD 0 
012434 TMPRi:: .BLKW 1 
012436 TMP .IOP.ADR: : 
.BLKW i 
012440 TMP .REG.DATA:: 
.BLKW i 
012442 TEMP1:: .BLKW 1 
TEMP2:: .BLKW i 
TEMPS:: .BLKW i 
012450 TEMP4:: .BLKW 1 
012452 TEMPS:: .BLKW i 
012454 TEMP6:: .BLKW i 
012456 TEMP7:: .BLKW i 
012460 TEMPS:: .BLKW i 
012462 TEMPS:: .BLKW 1 
012464 Pi:: .BLKW 1 
012466 Pe:: -BLKW i 
012470 P3:: -BLKW i 
012472 P4:: -BLKW i 
012474 P5:: or 1 
012476 TBYTE1::. 1 
012477 TB ::.BLKB i 
012500 TB ::.BLKB 1 
012501 A a ee 1 
sea Pe 
012506 LOGUN:: .BLKW i 
-GLOBL LSSOFT, TS$PTHV, L$RPT, L$INIT 
-GLOBL LSCLEAN, _ESLAS AST L SHARD. L sDVTYP 
-GLOBL L §DESC. LSAU Tl 
-GLOBL T2, T3, Ta. Uist 16. T, wTe 19 








MS 











ZQNA1 CZQNAEO DEQNA FUNCTIONAL TEST 
vo1.0 PROTECTION TABLE 
010000 IBE== 
IER== 
LOE== 
1 HOE == 
000176' LSERRTBL== 
000220' 
000210’ 
000011 L$ oes 
000000’ DESCR .LIST== 
000400‘ DATA.BUFFER== 
000000 ' T 
000030' 
000060’ 
000122’ 
000164' 
000226 ' 
000270’ 
000332’ 
000374 ' 
000432’ 
000514’ 
000602' 
000706' MSG04== 
1000' MSGO5== 
001072 MSGO06== 
001164’ MSGO7== 
1256' MSGO8== 
001350 MSGO9== 
001442’ MSG10== 
001610" Hsciz-- 
001740' MSG14= 


a 









en 





27-Mar-1986 07:35:34 


26-Mar - 1986 


10000 


20000 
190000 
ERRTYP 


L$SWLEN+2 
L$HWLEN+2 


L$REV+1 


S: 
Oo 


seEegpasRenengngenstststrerereerersrrscers 


-LIST 
BUFFER 


17:01:04 


VAX-11 Bliss- 


DISK2:[SCODA.QNA.ZQNA)ZQNA1.BLI;1 


V4 .0-579 


SEQ 64 





P 64 
28) 


PIERO GEL REA LE ERE ELE DERE E EIEN, RETRIAL | ATS YT TONLE 2 ENE TIONG IER TPE ETE SO ED QUARTET, REEDED eet nT ent y Se 


ZQNA1 
vo1.0 





003572' 
00 


CZQNAEO DEQNA FUNCTIONAL TEST 
PROTECTION TABLE 


PSECT SUMMARY 
Attributes 





27-Mar-1986 07:35:34 
26-Mar-1986 17:01:04 


ABR 
ABS 
ABT 
ABV 


VvUVVVVUUUY 


>> P>PYPY>D> 
atetatetetetet tott 


PRS 


aessenaasaaaasazasase 





VAX-11 Bliss-16 V4.0-579 
DISK2:(SCODA.QNA. ZQNA}ZONAI BLI;1 


Bo 


ZQNA1 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 oF! 


S066 
v01.0 PROTECTION TABLE 26-Mar-1986 _ 


i154 Dracd | BRASR bea Se FF oes BLI;1 (285 


:04 DISK 


Library Statistics 


PAR ert sae te RR ecg? Symbols -------- Pages Processi 
File total Loaded Pereant Neleed ia * 
; DISK2:[SCODA.QNA.ZQNAJQNALIB.L16;2 224. BB 39 14 00:00.1 
, COMMAND QUALIFIERS 

, BLISS/PDP11 ZQNA1.BLI/LIST=ZQNA1.LIS/OBJECT=ZQNA1 . OBU/SOURCE=PAGE :53 


Size: 0 code + 4766 data words 
00:17.3 


i 

Elapsed. Time: 0019.5 
; Lines/CPU Min: 8518 
: ' 


Q 67 


ZQNA2] CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:55 VAX-11 Bliss-16 V4.0-579 Page 1 
26-Mar-1986 17:01:04 DISK2: [SCODA.QNA.ZQNA]ZQNA2.BLI;1 (1) 





: 9001 9 MODULE ZQNA2 (TITLE ‘CZQNAEO DEGNA FUNCTIONAL TEST: 
; 0002-0 IDENT = 'V01.0° 

; 0003 0 ADDRESSING _MODE( ABSOLUTE) 

t 3s 6s aaaTh. ‘Paton: Set tee 

; ©0006 0 

; 0007 1 BEGIN 

; ©0008 1 

; 0009 1 LIBRARY 'QNALIB: ' QNALIB LIBRAR 

: 0010 1 REQUIRE ‘BLSMAC.REQ! ; i DIAGNOSTIC SUPERVISOR LIBRARY 
; 


MOR ee ere gD ER EU REE REESE. Eee OTe 


SEQ 68 





Z CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:55 VAX-11 Bliss-16 V4.0-579 Page 2 
V0O1.0 EXTERNAL DECLARATIONS 26-Mar-1986 17:01:04 DISK2: [SCODA.QNA.ZQNA)ZQNA2.BLI;1 (2) 
s oe SSBTTL ‘EXTERNAL DECLARATIONS’ 

; 1502 i !<BLF /FORMAT> 

; 1503 1 

; 1504 i PSECT 

;s 2a CODE = AASCODES; 

5s game i 

; ;. ae | 

; 1508 1 FORWARD ROUTINE 

; 1509 1 NXM_INT : L$ISR NOVALUE, 

; 1510 1 QNA_INT : L$ISR NOVALUE; 

; 1511 1 

: ae 6S EXTERNAL ROUTINE 

$ tate : RESET_DEQNA : NOVALUE; 

; 


alee 


SEQ 69 
ZQNA2 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:55 VAX-11 Bliss-16 V4.0-579 Page 3 
Vv0O1.0 EXTERNAL DECLARATIONS 26-Mar-1986 17:01:04 DISK2: [SCODA.QNA.ZQNA)ZQNA2.BLI;1 (3) 
: 1515 1 EXTERNAL 
: 1516 1 
; yl ae See 
; 1518 1 ’ COMMUNICATION AREA DECLARATIONS 
; 1519 1 }.. 
; 1520 1 
; 1521 1 IOP_ TABLE : VECTOR [ 8, WORD }, 
; 1522 1 
; 1523 1 
; 1524 1 bee 
; ies ; HARDWARE AND SOFTWARE P-TABLE STORAGE DECLARATIONS 
; 1527 1 
; 15268 i HWP_TABLE  : REF BLOCK HWP_SIZE, WORD ] FIELD ( HWP_FIELDS ), 
; at ; SWP_TABLE : REF BLOCK [ SWP_SIZE, WORD ] FIELD ( SWP FIELDS ), 
; 
: tee : INTERRUPT _FLG : WORD, ! 1 = INTERRUPT OCCURED 
; 
s 1533 1 REG_ADR : REF REG_STR FIELD ( IOP_FIELDS ), 
| ae s IOP_DATA : REF REG_STR FIELD ( IOP_FIELDS ), 
;s ae § GET_ADR : REF ADR_STR FIELD ( IOP_FIELDS ), 
; 1536 1 
5s faa 3 'es 
s ta @ ! TEMPORARY STORAGE DATA DECLARATIONS 
; 1539 1 '.. 
; 1540 i 
; te 2 TMP_IOP_ADR : WORD, ! I/O PAGE REGISTER ADDRESS 
; 1542 1 TMP_REG_DATA : WORD, ! I/0 PAGE REG CONTENTS 
; 1543 1 TEMP1 : WORD, ' TEMPORARY STORAGE LOCATION 
; 1544 1 TEMP2 : WORD, ! TEMPORARY STORAGE LOCATION 
5 Be ji TEMP3 : WORD, ! STORAGE LOCATION 
; 1546 i TEMP4 : WORD, : STORAGE LOCATION 
> ae 3 TEMPS : WORD, ! TEMPORARY STORAGE LOCATION 
; 1548 i TEMP6 : WORD, ! STORAGE L ION 
; 1549 1 TEMP7 : WORD, ! STORAGE LOCATION 
s tae 32 TEMP8 : WORD, ! TEMPORARY STORAGE LOCATION 
$ 135 : TEMP9 : WORD, ! TEMPORARY STORAGE LOCATION 
; 
$ 1a; : ! added location(s) 
: 
; teas ; logun :WORD, tlogical unit # Cunit under test) 
; 
5s ta f 
s igs i fee 
; 4 ‘ QUESTIONS AND ERROR MESSAGEES DECLARED EXTERNALLY 
; -- 
5 fae 3 
; raee ; QSTO1, QSTO2, QSTO3, QSTO4, QSTO5S, QSTO6, QSTO7, QST10, MSG54; 
; 





Ns 


F6 


<= 
© 
— 
© 


be bbe be ee bo be po pn pe po pe pe pe 


27-Mar-1986 07:35:55 


CZQNAEO DEQNA FUNCTIONAL TEST 
T IPTION 26-Mar-1986 17:01:04 


YPE AND DESCR 
SSBTTL ‘TYPE AND DESCRIPTION’ 


See 
: NAMES OF DEVICES SUPPORTED BY PROGRAM 


EQUALS; 
DEVTYP (s#ASCIZ’' DEQNA/M7504' ); 


See 


' TEST DESCRIPTION 


DESCRIPT (#ASCIZ'DEQNA FUNCTIONAL TEST’); 


SEQ 70 
VAX-11 Bliss-16 V4.0-579 Page 4 
DISK2:[SCODA.QNA.ZQNA}ZQNA2.BLI;1 (4) 


ann 


ud eh al el al ll dd wd ed ed ed ed dd de 





SEQ 71 
CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:55  VAX-11 Bliss-16 V4.0-579 Page 5 
HAROWARE PARAMETER CODING SECTION 26-Mar-1986 17:01:04  DISK2:(SCODA.QNA.ZQNA}ZQNA2.BLI;1 (5) 


SSBTTL ‘HARDWARE PARAMETER CODING SECTION’ 


' 

: THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 

: THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 

: MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 

; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. T 

: MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 

WITH THE OPERATOR. 

; THIS CODE IS USED BY THE SUPERVISOR % INTERROGATE THE OPERATOR 
: FOR DEVICE INFORMATION TO PUT IN THE P-TABLE. THIS CODE IS USED 
? IN CONJUNCTION WITH THE DEFAULT P- TABLE TEMPLATE. THE MACROS 
USED IN THIS SECTION ARE "GPRMD", “GPRMA”. 


. 
See 


BGNHRD 
GPRMA (QSTO1, *0'0', 0, #0'174440', #0'174460', YES, 1); 1 1/0 PAGE ADDRESS 2 
GPRMA (QSTO2, #0'2'; 0; #0'700', ' #0'704', '° YES! 13; INTERRUPT VECTOR ADDR ? 


SP GP GP GP GP SP So SS SP SP SO SS GS SP GS US GS SE OS we Gs GS ES GS GS Ge oe 
Pe he ee be he be ho ee ho po pe pe ee po pn pn pn ee fo pe pee 








CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35: aa VAX-11 Bliss-16 V4.0-579 
SOFTWARE PARAMETER CODING SECTION 26-Mar-1986 17:01:04 DISK2:(SCODA.QNA.ZQNAJZQNA2.BLI; 1 


SSBTTL ‘SOFTWARE PARAMETER CODING SECTION’ 


t 
' THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
i THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
‘ MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
i INTERPRETED BY THE VISOR AS DATA TURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 
BGNSFT; 
GPRML ( QSTO3, #0'0’, -1, YES, 1); ! DO YOU WANT TO TEST SANITY TIMER ? 
XFERF(NOTIMER ); 
GPRMD ( QSTOS, *40'4", D, -1, 0, Za YES, 1) 
t SANITY TIMER TIME-OUT VALUE ? 
$LCNOTIMER); 
GPRML ( QST06, #0'6', -1, YES, 1); ! EXTERNAL LOOPBACK MODE ? 
GPRML ( QSTO7. #0'10', -1. WES" Re ' SYSTEM HAS BLOCK-MODE MEMORY ? 
GPRML ( QSTO4, #0'2','-1, YE ! LOOPBACK CONNECTOR IN DEQNA ? 
GPRML ( QST10, #0'12', -i, ves, “i. ' run NXM test 21, sys has < 4M mem 
ENDSFT; 


-— 
oO 


ll ll ol od od ned eed eed eed nd dd 


SEQ 73 
CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:55 VAX-11 Bliss-16 V4.0-579 , 
REPORT CODING SECTION 26-Mar-1986 17:01:04 DISK2: (SCODA.QNA.ZQNA]ZQNA2.BLI;1 


SSBTTL ‘REPORT CODING SECTION’ 


THE REPORT CODING SECTION CONTAINS THE 
“PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 


i 
' 
' 
' 
t 
THIS SECTION CONTAINS THE CODE FOR PRINTING 
STATISTICAL INFORMATION GATHERED BY THE DIAGNOSTIC. IT IS 
EXECUTED BY THE OPERATOR COMMAND “PRINT” OR BY THE MACRO CALL 
“DORPT”. USE THE PRINTS MACRO TO PRINT THE INFORMATION. 

USE FORMAT STATEMENTS AS IN THE PRINTB/PRINTX MACROS. iT IS 
THE PROGRAMMER’S RESPONSIBILTY TO DEVISE AND IMPLEMENT THE 
FORM AND CONTENT OF THE STATISTICS. 


BGNRPT ; 
TEMP1 = 1 
ENDRPT ; 
-TITLE ZQNA2 CZQNAEO DEQNA FUNCTIONAL TEST 
-IDENT /V01.0/ 
-ENABL AMA 
-PSECT $CODE$, RO 
105 i121 L$DVTYP:: 
-ASCII /DEQ/ 
101 057 -ASCII /NA/<57> 
067 065 -ASCII /M475/ 
-ASCII /04/<00> 
.BLKB 2 
105 121i L$DESC::.ASCII /DEQ/ 
101 040 .ASCI® /NA / 


Page 


~ 
(7) 





SEQ 74 
ZQNA2 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:55  VAX-11 Bliss-16 V4.0-579 Page 8 
V01.0 REPORT CODING SECTION 26-Mar-1986 17:01:04 DISKe. : (SCODA.QNA. ZQNA]ZQNA2.BLI:1 (7) 
000064 000700 .WORD 700 
000066 000704 "WORD 704 
000070 L$NDHRD: : 
000072 000000C L$SFTLN: : 
-WORD <<<L$NDSFT-L$SFTLN>/2>-1> 
000074 000130 GP$3::  .WORD 
000076 0000006 “WORD QSTO3 
000100 177777 . WORD -1 
000102 000000C $NOTIMER: 
-WORD <<<<$LNOTIMER-$NOTIMER>«400>+4>+40> 
000104 002052 GP$4:: {WORD 2052 
000106 “WORD  @QSTOS 
000110 177777 “WORD -1 
112 000000 “WORD 0 
000114 000007 “WORD 7 
000116 001004 $LNOTIMER: 
.WORD 1004 
000120 003130 GP$S:: .WORD 3130 
000122 0000006 ‘WORD  QST06 
000124 177777 ‘WORD -1 
000126 004130 GP$6:: .WORD 4130 
000130 “WORD  QSTO7 
000132 177777 “WORD - 
000134 001130 GP$7:: .WORD 1130 
000136 000000G ‘WORD  @QSTO4 
000140 177777 -WORD = 
000142 005130 GP$8:: .WORD 5130 
000144 .WORD QSTi0 
000146 177777 “WORD -l 
000150 L$NDSFT: : 
-BLKW 1 
.GLOBL RESET aDEQNA IOP. TABLE. tte: p TABLE 
-GLOBL + ANTERRUPT ADR 
-GLOBL Top: DATAS Tie gop nok 
-GLOBL DATA, GET “Tere. TEMP2, TEMP3 
GLOBL Teeaee TEMPS, TEMPS, 7. 8 
-GLOBL TEMP9, LOGUN, QSTO1, QSTO2; QsTO3 
-GLOBL QST04, QSTOS, QSTO6, QSTO7. QST10 
“GLOBL MSG54 
100000 BIT15== - 100000 
040000 BITi4== 40000 
020000 BIT13== 20000 
010000 BITi2== 10000 
004000 BITii== 4000 
002000 BIT10== 2000 
001000 BIT09== 1000 
000400 BIT08== 400 


000200 BITO7== 200 





KO 


SEQ 75 
ZQNA2 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:55 VAX-11 Bliss-16 V4.0-579 Page 9 
v01.0 REPORT CODING SECTION 26-Mar-1986 17:01:04  DISK2:{SCODA.QNA.ZQNA)ZQNA2.BLI;1 (7) 
000100 BITO6== 100 
000040 BITOS== 40 
BITO4== 
000010 BITO3== 10 
BITO2== 
BITO1== 2 
BITOO== 
001000 BIT9== 1000 
BITS== 400 
BIT7== 200 
000100 BIT6== 100 
BITS== 40 
BIT4== 20 
000010 BIT3== 10 
BIT2== 4 
BITi== 2 
000001 BITO== 1 
000040 EF .START== 40 
000037 EF .RESTART== 37 
000036 EF .CONTINUE=< %6 
000035 EF .NEW== 35 
000034 PWR== 34 
000340 PRIO7== 340 
000300 PRI06== 300 
PRIOS== 240 
PRI04== 200 
000140 PRIO3== 140 
000100 PRIO2== 100 
000040 PRIO1== 40 
000000 I00== 0 
000004 EVL== 4 
000010 LOT== 10 
000020 ADR== 20 
000040 IDU== 40 
000100 ISR== 100 
000200 UAM== 200 
000400 BOE== 400 
001000 PNT== a 
002000 PRI== 
004000 IXE== 4000 
010000 IBE== 10000 
020000 TER== 30000 
040000 LOE== 40000 
100000 HOE == -1 
000050’ L $HARD== L$HRDLN+2 
000074: L$SOFT== L$SFTLNe2 


-SBTTL LRPT REPORT CODING SECTION 
000000 -PSECT AASCODE$, RO 


000000 012737 000001 0000006 LRPT: MOV #1, TEMP1 ; 1647 
000207 PC 


RTS 








L6 


ZQNA2 
vo1.0 


CZQNAEO DEQNA FUNCTIONAL TEST 
REPOR ON 


27-Mar-1986 07: 
T CODING SECTI 


26-Mar-1986 17: 


:35:55 
01:04 


; Routine Size: 4 words, Routine Base: AASCODE$ + 0000 
; Maximum stack depth per invocation: 0O words 


.-SBTTL L$RPT REPORT CODING SECTION 
000000’ L$RPT:: JSR PC ,LRPT 


000000 004737 
000004 104425 
000006 000207 


; Routine Size: 


4 words, AASCODE$ + 0010 
; Maximum stack depth per 


Routine Base: 
invocation: 2 words 





VAX-11 Bliss-16 V4.0-579 Page 10 
DISK2:[SCODA.QNA. ZQNA }ZQNA2.BLI;1 (7) 
; 1647 


SEQ 77 
ZQNA2 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:55  VAX-11 Bliss-16 v4.0-579 Page 11 
V01.0 INITIALIZE SECTION 26-Mar-1986 17:01:04  DISK2:{SCODA.QNA.ZQNA]ZQNA2.BLI;1 (8) 
; 1654 1 SSBTTL ‘INITIALIZE SECTION’ 
= ia 
3 .** 
; 1657 1 ' THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
1658 1 THE BEGINNING OF EACH PASS. 
; 3 
; 1660 1 ‘ THE I CONDITI 
[iat } ARE SUPERVISOR EVENT ELAS THAY RNBEREEVE CONDITIONS. 
; 1662 1 ' DIAGNOSTIC KNOW UNDER UNDER WHI ‘CouwrTs THE c EXE ON IS TAKING 
. mes THE CONDI TTONs INIT CODE TS EXECUTED ANG THE 
; . 
-— «§ ie CORRESPONDING UNDER FLAGS ARE: 
; 1666 1 ’ START COMMAND. EF .START 
; 1667 1 : RESTART COMMAND EF RESTART 
; 1668 1 i CONTINUE COMMAND EF . CONTINUE 
; 1669 1 ' EF . PWR 
; 1670 1 i NEW P EF “NEW 
; 1671 1 ’ EXAMPLE OF EVENT FLAG USE: 
; 1672 1 ‘ F READEF(EF.START) THEN 
; 1673 1 ' START _FLAG = = bi 
; 1674 1 ' rane Tae SMT ELS THE "GPHARD” HACRO.T TO OBTAIN P-TABLE 
; 1675 1 ' INFORMATION FOR DEVICE TESTING. GET ONE UNIT'S INFORMATION IF 
; 1676 1 ‘ THIS IS A SEQUENTENL DIAGNOSTIC. NUMBER OF UNITS AVAILABLE IS IN 
; 1677 1 : A HEADER LOCATION: "L$UNIT". 
3 1678 1 !.. 
; 1679 1 
; 1680 2 BGNINIT ; 
; 1681 2 
; 1682 2 LOCAL 
; 1683 2 START_FLAG ! SET IF THIS PASS IS A START 
; 1684 2 AY ‘ ' CONTAINS DELAY FACTOR 
; 1605 2 cont_flag; ! set if event fleg ef_continue 
; 
; 1687 2 SETPRI (PRIO7); ! PRIORITY 7 - NO INTERRUPTS ALLOWED 
; 1688 2 START_FLAG = CLEAR_FLG; ' CLEAR BEFORE TESTING IT 
; 1683 ¢ cont_flag = clear_Fig; ! same, clear continue flag before use 
i 
; 1691 2 IF READEF (EF_PwR) ! ARE WE HERE BECAUSE OF POWER FAIL? 
; 1692 2 THEN 
; 1693 3 BEGIN 
; 1694 : PRINTF ( MSGS4 ); ! “THERE WAS POWER FAILURE - WAITING” 
; 
; 16% 3 INCR COUNT FROM 0 TO 60 DO ! WAIT APPROX. 60 SECONDS 
; 1697 4 BEGIN 
; 1698 4 DELAY_MULT = 10000 
; 1699 4 DELAY~( DELAY MULT); 
; 1700 4 BREAK; ! BREAK FOR APT 
; 1701 3 END; 
$ 1702 2 ; 
: 1703 2 
; 1704 2 IF READEF (EF_START) ! IS THIS A START ? 
; Ba : THEN 
; 





ZQNA2 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:55 VAX- , r Tandine 
— INITIALIZE SECTION 26-Mar-1986 17:01:08  DISK2:(SCODR.QNA ZONAIZONAZ.aLr,1 °°% (33 


START_FLAG = TRUE; 
; 


eos 
: CLEAR HARDWARE P-TABLE ON A START BEFORE DOING THE GPHARDS 


IF .START_FLAG OR READEF C(EF_NEW) OR READEF (EF _CONTI IME) 
THEN ~ ! IF THIS IS A START 


INCR INDEX FROM 0 ie HWP_S ! 
CHM STABLE -. ye — BY 2 DO ZERO OUT THE TABLES 
ogun = -1 ; 


Pes 
GET BASE ADDRESS OF HARDWARE P-TABLE AND DEQNA I/0 PAGE 


1 1 : i ° 
iF tog. ae i : advance to next unit 0 or 1 2 = done 


no our POINTER; 


-logun, TABLE_POINTER ) NEQU 0 ! GET P-TABLE ADDRESS 


= “TABLE ! SAVE HW P-TABLE 
REG-ADR = ‘HWP_TABLE [ ADDR ); 1 SAVE 1/0 PAGE BASE ADDRESS 
= "HWP~TABLE { ADDR }. i SAVE 1/0 PAGE BASE ADDRESS 


! f > U 


begin 
l = -1; 


RETURN 
ENDINIT; 


$ 3 
; a 
: 2 
3 2 
: 2 
: 2 
; 2 
; 2 
: 2 
; 3 
; 3 
; 3 
; 3 
; 3 
; e 
; 2 
3 2 
: 2 
; 2 
: 2 
$ 2 
; 2 
; 2 
; 2 
; in Ss 
; 3 
; 3 
; 3 
: 4 
; 4 
; 4 
s 4 
; 4 
; 4 
; 4 
; 5 
; 5 
: 5 
; 4 
; 3 
; 2 
; 2 
; 2 
; 3 
; 3 
; e 
; 2 
; 1 





CZQNAEO DEQNA FUNCTIONAL TEST 
INITIALIZE SECTION 


000075 
023420 


LINIT: 


i$: 
2$: 


3$: 
4$: 
5$: 


6$: 


7$: 


8$: 
9$: 


10$: 


27-Mar-1986 07:35:55 
26-Mar-1986 17:01:04 


-SBTTL LINIT INITIALIZE SECTION 
JSR E 


Ri, $SAVE4 
-(§P) 
#340,RO 
4i 


R4 
#34 ,,RO 
rH 


12$ 
GHWP .. TABLE , IOP .DATA 
RO, HWP. TABLE 





VAX-11 Bliss-16 V4.0-579 
DISK2:(SCODA.QNA.ZQNA]ZQNA2.BLI; 1 


; START.FLAG 


; SP,* 

; *. ld 

; DELAY. AMOLT. $$THP2 
; *,$$TMP1 


*, START .FLAG 
START .FLAG 


TABLE .POINTER 


TABLE .POINTER, * 





13 
(8) 


1649 
1687 


1688 
1691 


1694 


1696 
1693 
1704 


1707 
1714 


1736 
1737 


ZQNA2 CZQNAEO DEQNA FUNCTIONAL TEST 
v0O1.0 INITIALIZE SECTION 
000232 011000 MOV 
000234 010037 000000G MOV 
000240 010037 000000G MOV 
000244 010037 000000G MOV 
000250 CLR 
000252 013760 000000G 000000G 11$: MOV 
000260 062737 000002 0000006 ADD 
000266 062700 000002 ADD 
000272 7 000016 CMP 
000276 003765 BLE 
000300 023727 000000G 000002 12$: CMP 
000 00100 BNE 
000310 012737 177777 000000G 13$: MOV 
000316 0057 14$: TST 
000 RTS 
; Routine Size: words, Routine Base: AA$CODE$ 
; Maximum stack doth per invocation: 10 words 
.SBTTL 

000000 004737 000020’ L$INIT::JSR 
000004 104411 TRAP 
000006 000207 RTS 
; Routine Size: words, Routine Base: AA$S$CODE$ 
; Maximum stack dant per invocation: 2 words 
s fame 2 

1756 1 
; 1757 1 


27-Mar-1986 07:35:55 


26-Mar-1986 17:01: 


RO) RO 
0,REG.ADR 


Ro. GET. ADR 
RO, TMP. IOP. ADR 
TMP. IOP. ADR, IOP. TABLE(RO) 
#2, TMP. TOP. ADR 
"RO 
RO. #16 
11$ 
LOGUN, #2 
14$ 
#-1,LOGUN 
SP )+ 
PC 
+ 0020 


L$INIT INITIALIZE SECTION 
PC ,LINIT 


11 
PC 
+ 0342 


04 


SEQ 80 

VAX-11 Bliss-16 V4.0-579 Page 14 
DISKS. : (SCODA.QNA. ZQNA }ZQNA2. BLI;1 (8) 
; HWP e TABLE ’ * 1738 
$ 1739 
zy 1740 
; INDEX 1741 
; *,*C INDEX) 1743 
: 1744 
; *, INDEX 1741 
; INDEX, 

; 1748 
; 1751 
; 1649 
. 1753 


SEQ 81 


ZQNA2 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:55 VAX-11 Bliss-16 V4.0-579 Page 15 
VO1.0 AUTODROP SECTION 26-Mar-1986 17:01:04 DISK2: (SCODA.QNA.ZQNAJZQNA2.BLI;1 (9) 





SSBTTL ‘AUTODROP SECTION’ 


’ 
' 
; THIS CODE IS ge: IMMEDIATELY AFTER THE INITIALIZE CODE IF 
: THE "ADR" FLAG WAS SET. THE UNIT UNDER TEST IS CHECKED TO 
; SEE IF IT WILL RESPOND. IF IT DOESN'T IT IS IMMEDIATELY 
DROPPED FROM TESTING. 

' 


7. © @e © @s @e ee ee ce © 7) © ©2 @F @e os 
~— 
POMP pp pe 


.SBTTL LAUTO AUTODROP SECTION 
000000 000207 LAUTO: RTS PC : 


; Routine Size: 1 word, Routine Base: AAS$CODE$ + 0352 
; Maximum stack depth per invocation: 0 words 


1754 


-SBTTL L$AUTO AUTODROP SECTION 
000000 004737 000352’ L$AUTO: : JSR PC, ,LAUTO ; 1771 
000004 104461 TRAP 61 
000006 000207 RTS PC 


; Routine Size: 4 words, Routine Base: AA$CODE$ + 0354 
; Maximum stack depth per invocation: 2 words 


; aan s 
; 1775 1 





SEQ 82 


ZQNA2 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:55 VAX-11 Bliss-16 V4.0-579 Page 16 
vo1.0 CLEANUP CODING SECTION 26-Mar-1986 17:01:04 DISK2:(SCODA.QNA.ZQNAJZQNA2.BLI;1 (10) 
; 1776 il SSBTTL ‘CLEANUP CODING SECTION’ 
s keer & 
HE 
1780 1 ' THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
; tres ; : AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 
1783 1 ' INSERT YOUR CLEANUP CODING. THIS CODING SHOULD 
; 1784 1 : RESTORE YOUR TEST-DEVICE TO A NEUTRAL STATE. 
s imo i : THIS CODE WILL BE EXECUTED AFTER EACH PASS AND AFTER THE 
; 178 1 : PROGRAM IS INTERRUPTED BY “tC”. 
s ine 3 !-- 
s 17866 1 
; 1789 2 BGNCLN; 
+ tyr 5 Irvec (4) ‘give trap 4 vector back to supervi 
; clrvec ; ‘give tr vector ° rvisor 
; 1792 2 RETURN; ? = 
s i795 2 
; 1794 ji ENDCLN; 
-SBTTL LCLEAN CLEANUP CODING SECTION 

000000 012700 000004 LCLEAN: MOV #4 ,RO ; 1791 
000004 104436 TRAP 36 

000207 RTS PC ; 1773 
; Routine Size: 4 words, Routine Base: AASCODE$ + 0364 
; Maximum stack depth per invocation: 2 words 


-SBTTL LS$CLEAN CLEANUP CODING SECTION 


000000 004737 000364’ L$CLEAN: : 
000004 104412 TRAP 12 

000006 000207 RTS PC 

; Routine Size: 4 words, Routine Base: AA$CODE$ + 0374 

; Maximum stack depth per invocation: 2 words 


; 1795 1 
. ie & 





ZQNA2 CZQNAEO DEQNA FUNCTIONAL TEST 
vo1.0 DROP UNIT SECTION 

; 1797 1 SSBTTL ‘DROP UNIT SECTION’ 

; 1798 1 

; 179S 1 ! 

; 1800 1 ! 

; 1801 1 ! 

; 1802 1 ' TO NO LONGER BE T 

; 1803 1 ' 

; 1804 1 ! INSERT DROP CODE HERE. 
; 1805 1 ! . OR A 
; 1806 1 : 

; 1807 1 : 

3 1808 i ! 

; 1809 1 !.. 

3 1810 1 

; 1611 2 BGNDU; 

; 1812 2 

; 1813 e2 RETURN; 

: 1814 2 

; 1815 1 ENDDU; 


000000 000207 


; Routine Size: 1 word, 
; Maximum stack depth per 


000000 004737 000404’ 
000004 104453 
000006 000207 


; Routine Size: words, 
; Maximum stack ol per 


; 1616 1 
. = 2 


LDU: 


Rout 
invocation: 


L$DU:: 


SEQ 83 
27-Mar-1986 07:35:55 VAX-11 Bliss-16 V4.0- Page 17 
26-Mar-1986 17:01:04 DISK2: ({SCODA.QNA.ZQNA]ZQNA2.BLI;1 (11) 


THE DROP-UNIT rittin THE CODING THAT CAUSES A DEVICE 


THIS CODE WILL BE EXECUTED AFTER 
A * COMMAND "DODU" MACRO EXECUTION. THE PURPOSE 
OR_THIS CODE IS TO DO ANY NECESSARY HOUSEKEEPING AFTER A 
UNIT HAS BEEN DROPPED. 


.-SBTTL LDU DROP UNIT SECTION 
RTS PC 1794 


outine Base: AASCODE$ + 0404 
0 words 


-SBTTL L$DU DROP UNIT SECTION 

JSR PC ‘ LDU ; 1813 
TRAP 53 

RTS PC 


Routine Base: AASCODE$ + 0406 
2 words 


invocation: 





oe @e @¢ @e © ef ©: @* © @e ee @F © se ee © ee oe @e 
& 
oo 
POPPI ee po pe pepe poe 


000000 000207 


; Routine Size: 
; Maximum stack 


; Routine Size: 


; Maximum stack depth per 


; 1837 1 
; 1838 1 


VAX-11 Bliss-16 V4.0-579 
DISK2:(SCODA.QNA.ZQNA}ZQNA2.BLI;1 


27-Mar-1986 07:35:55 
26-Mar-1986 17:01:04 


Page 18 


CZQNAEO DEQNA FUNCTIONAL TEST 38 


ADD UNIT SECTION 
SSBTTL ‘ADD UNIT SECTION’ 


+ 
+ 


THE ADD-UNIT SECTION CONTAINS ANY CODE THE tee ta WISHES 

TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 

TO THE TEST CYCLE. 

ore Hd ADD CODE HERE. THIS CODE a BE EXECUTED AFTER 
AN “ADD” COMMAND. S 


THE PURPOSE IS_TO DO ANY 
HOUSEKEEPING THAT MAY BE NECESSARY AFTER A UNIT HAS BEEN ADDED. 


-SBTTL LAU ADD UNIT SECTION 
LAU: RTS PC ; 


Routine Base: AASCODE$ + 0416 
invocation: O words 


1815 


TT T T 
SBTTL ang ADD UNIT SECTION 1834 


JSR LAU ; 
TRAP 
RTS PC 


Routine Base: AASCODE$ + 0420 
invocation: 2 words 


000416' L$AU:: 


4 words, 


SEQ 85 

ZQNA2 C7QNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:55 VAX-11 Bliss-16 V4.0-579 Page 19 
V01.0 ADD UNIT SECTION 26-Mar-1986 17:01:04 DISK2:(SCODA.QNA.ZQNAJZQNA2.BLI;1 (13) 
: 1839 1 
; 1840 2 BGNSRV (NXM_INT); 
:; 1841 2 
; 1842 2 tee 3 
; 1843 2 ! 
; 1844 2 : GLOBAL LOCATION “INTERRUPT_FLG” IS SET TO TRUE WHICH INDICATES 
; teat $ THE INITIALIZATION SEQUENCE INTERRUPT OCCURED. 
: : 
$ 1847 2 !-- 
; 1848 2 
; 1849 2 INTERRUPT_FLG = €0'177777' ; 
; 1850 2 
' aes ENDSRV; 

-SBTTL NXM.INT ADD UNIT SECTION 
000000 012737 177777 000000G NXM.INT:: 

ad #-1, INTERRUPT .FLG ; Fp oe 


000006 000002 R 


; Routine Size: 4 words, Routine Base: AAS$CODE$ + 0430 
; Maximum stack depth per invocation: 0 words 


SEQ 86 

ZQNA2 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:35:55 VAX-11 Bliss-16 V4.0-579 Page 20 
V0O1.0 ADD UNIT SECTION 26-Mar-1986 17:01:04 DISK2:(SCODA.QNA. ZQNA }ZQNA2. BLI;1 (14) 
: 1852 1 
; 1853 2 BGNSRV (QNA_INT); 
: 1854 2 
mie 
; ! 
s i857 2 ! GLOBAL LOCATION “INTERRUPT_FLG” IS SET TO TRUE WHICH INDICATES 
; 1858 2 ' THE INITIALIZATION SEQUENCE INTERRUPT OCCURED. 
; 1859 2 ! in addition, interrupt causing bits in QNA csr are cleared 
; 1860 2 ! (write 1 to clear) 
; 1861 2 ' 
; 1862 2 !.. 
3 1863 2 
; 1864 2 PUT_BIT [ CSR, XI, SET_IT twr 1 clr XI (RI & NXM by hrdwr design) 
; 1865 2 INTERRUPT _FLG = 60! rT, 
; 1866 2 
; 1867 1 ENDSRV; 

.SBTTL QNA.INT ADD UNIT SECTION 
000000 010046 QNA.INT:: 

MOV RO “an ; 1853 
000002 013700 MOV — ; 1864 
000006 152760 000200 000016 BISB 560, 16¢RO) 
000014 012737 177777 000000G MOV oT ENTERRUPT.. FLG ; 1865 
000022 012600 MOV ¢-1 inte ; 1853 
000024 000002 RTI 
; Routine Size: 11 words, Routine Base: AAS$CODE$ + 0440 
; Maximum stack depth per invocation: 2 words 
; 868 1 
: 1869 1 
; 1870 1 
; 1871 O ELUDOM 
; OTS external references 

.GLOBL $SAVE4 

; PSECT SUMMARY 
; 
; Psect Name Words Attributes 
; $CODE $ 53 > 2 « th Ok Oe 
; AAS$CODE$ 155 Mss +s [es | Ge 


; Library Statistics 





J/ 


SEQ 87 
ZQNA2 CZQNAEO DEGNA FUNCTIONAL TEST 27-Mar-1986 07:35:55  VAX-11 Bliss-16 V4.0-579 Page 21 
vO1.0 ADD UNIT SECTION 26-Mar-1986 17:01:04  DISK2:[SCODA.QNA.ZQNA]ZQNA2.BLI;1 (14) 

eene--e- Symbols -------- Pages Processi 

File Total Loaded Percent Maleed Time iii 
; DISK2:[SCODA.QNA.ZQNAJQNALIB.L16;2 224 51 22 14 00:00.1 
' COMMAND QUALIFIERS 
BLISS/PDP11 ZQNA2.BLI/LIST=ZQNA2.LIS/OBJECT=ZQNA2 . OBU/SOURCE=PAGE : 53 


; Size: 155 code + 53 data words 
Elapsed Ti 00:11 2 
ime; : ° 
i in: 11192 
Lexemes/CPU-Min: 78119 


Memory Used: 184 pages 
Cong! Let ion Complete 


Hae 
- 


Here OOOOO 


27-Mar-1986 07:36:09 
27-Mar-1986 07:33:50 


MODULE ZQNA3 (TITLE _* CZQNAEO DEQNA FUNCTIONAL TEST’ 
ADDRESSING_MODE( ABSOLUTE) 

KSBTTL 'DEQNA TEST DEFINITION MODULE: 

!<BLF /FORMAT> 


CZQNAEO DEQNA FUNCTIONAL TEST 


SEQ 88 
VAX-11 Bliss-16 V4.0-579 Page 1 
DISK2:{SCODA.QNA.ZQNA}ZQNA3.BLI;2 (1) 


LIBRARY 'QNALIB’ ; ! QNALIB LIBRARY 
REQUIRE ‘BLSMAC.REQ’ ; ! DIAGNOSTIC SUPERVISOR LIBRARY 


ree a ttn ert gyre ERE EET RESTS ETRE CTI 


SEQ 89 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 Page 2 
V01.0 DEQNA TEST DEFINITION MODULE 27-Mar-1986 07:33:50  DISK2:{SCODA.QNA.ZQNA]ZQNA3.BLI;2 (2) 
: 1501 1 PSECT 
; 1502 i CODE = ABSCODES; 
$ 1503 1 
; 1504 1 tee 
; 1505 1 ' EXTERNAL DATA USED BY THIS MODULE 
: 1506 1 !.. 
; 1507 1 
; os : EXTERNAL ROUTINE 
; 1510 1 CHK_CSR_STATUS : NOVALUE, 
; 1511 1 CHK_RIXT_ STATUS : NOVALUE, 
» eae i "RCV_STATUS : NOVALUE, 
; 1513 1 CHK_RX_CPSTATUS : NOVALUE, 
; 1514 1 CHK_XMIT_STATUS : NOVALUE, 
; 1515 1 CLR_BUFFERS : NOVALUE, 
; 1516 1 CLR : NOVALUE, 
; 1517 1 COMPARE PACKETS : NOVALUE, 
; 1518 1 E1$REPORT : NOVALUE, ! PRINT EXTENDED ERROR MESSAGE 
; 1519 1 ERROR $REPORT : NOVALUE, ! PRINT EXTENDED ERROR MESSAGE 
; 1520 1 FORM_HEX_ADR : NOVALUE, 
; 1521 1 KBD_INT : NOVALUE 
; 1522 1 NXM_INT : L$ISR NOVALUE, ! NXM INTERRUPT SERVICE ROUTINE 
; 1523 1 QNA_INT : L$ISR NOVALUE, ! QNA INTERRUPT SERVICE ROUTINE 
; 1524 1 PREP _FOR_SETUP : NOVALUE, 
; 1525 1 PWR_INT : NOVALUE, 
; 1526 1 RESET_DEQNA : NOVALUE, 
; faa ls SEND_ELOOP_PACKET : NOVALUE, 
; 1528 1 SEND_TEST_PACKET : NOVALUE, 
; 1529 1 INTR_TEST_P : NOVALUE, 
; 1530 1 SET_XDESCR_LIST : NOVALUE, 
; 1531 1 SET_RDESCR_LIST : NOVALUE, 
; 1532 1 TURN_OFF_LED : NOVALUE 
; 1533 1 VER_DESCR STATUS : NOVALUE, 
; 1534 1 WAIT FOR_TIME : NOVALUE, 
; 1535 1 BIT : NOVALUE, 
; 1536 1 WRT_STATION_ADR : NOVALUE, 
; 2537 1 XMIT_AND_RCV_PACKET  : NOVALUE, 
; 1538 1 XMIT_ILOOP_PACKET : NOVALUE, 
; 1539 1 XMIT_SETUP_PACKET : NOVALUE, 
; oy : romchk : novalue; 'does sumcheck for station addrs rom 
; 





4 


CZQNAEO DEQNA FUNCTIONAL TEST 
DEQNA TEST DEFINITION MODULE 


27-Mar-1986 07:36:09 
27-Mar-1986 07:33:50 


1 
1 

: EXTERNAL 

1 bee 

: COMMUNICATION AREA DECLARATIONS 

i es, 

i RCV_D_LIST : BLOCK [ D_SIZE, WORD ) FIELD OL _FIELDS ), 

1 XMIT_ 6 LIST : BLOCK { D-SIZE, WORD } FIELD ( DL-FIELDS 

1 DESCR_CIST : BLOCK f[ DESCR SIZE FIELD (DL_FIELDS ), 
i RCV_BUFFER : VECTOR { B_SIZE, BYTE }, 

1 XMIT_BUFFER : VECT B SIZE, BYTE }. 

1 DATA_BUFFER : VECTOR { BUF_SIZE, BYTE }, 

i TARGET _ADR : VECTOR { T_STZE, BYTE J, 

1 PHYS ADR : VECTOR { 23, BYTE J, 

i IOP TABLE : VECTOR {f 8, WORD } 

1 RD13 : VECT 64, WORD }, 

1 TD13 : VECTOR { 28, WORD }. 

1 1016 : VEC 44, WORD }, 

1 BD_PROM_DE : VECTOR { BD_D SIZE, WORD }, 

1 STATION _ADR : VECTOR [ 4, WORD ), 

1 PTRN_ TABLE : VECTOR { 8, BYTE }. 

1 bes 

1 ! HARDWARE AND SOFTWARE P-TABLE STORAGE DECLARATIONS 

1 

1 HWP_TABLE : REF BLOCK HuP SIZE. WORD FIELD HWP_FIELDS ), 
: SWP_ TABLE $ REF BLOCK SWP_ ry j f SWP_F TELDS P] 
1 REG_ADR : REF REG_STR FIELD ( IOP_FIELDS ), 

1 ‘ : REF AOR STR FIELD f OP"F : 

: IOP~DATA : REF REG_STR FIELD ( IOP"FIELDS ). 


VAX-11 Bliss-16 V4.0-5 
OISK2: [SCODA.QNA . ZQNA) 





SEQ 90 
79 
ZQNA3.BLI;2 


ices: —_J 


ee ee be be po pe po pn pn pn po pn pe pn pn pe pe 


CZQNAEO DEQNA FUNCTIONAL TEST 
DEQNA TEST DEFINITION MODULE 


See 


27-Mar-1986 07:36:09 
27-Mar-1986 07:33:50 


SEQ 91 
VAX-11 Bliss-16 V4.0-57 
DISK2:[SCODA.QN/.ZQNA]ZQNA3.BLI;2 


! CO=NONE , -1=L-CLOCK,1=P_CLOCK) 


p 4 
~~ 


MISCELLANEOUS DATA DECLARATIONS 
ot nh eae st ea a 
fer BR Ge  —_—_— 
ERR_COUN ERR-FLAG, we PRIOO, 

PRIO1, PRIO2, Seros. PRIO4, 
PRIOS. PRIO6, PRIO7, DEQNA_NO : WORD, 


THe IOP_ADR ree REG_DATA TEMP 
TEMPS, ~ TEMP4,  S«—Ss TEMPS, 
TEMP7, TEMPS. TEMP9. 
TADR2 

TBYTE1, TBYTE2, TBYTES, 


P4, 
TEMP2, 
TEMP6, 
TADR1, 
: WORD, 
TBYTES : BYTE, 


<= 


be be be fe pe pe po po pe pee pen po pe 


CZQNAEO DEQNA FUNCTIONAL TEST 
DEQNA TEST DEFINITION MODULE 


27-Mar-1986 07:36:09 
27-Mar-1986 07:33:50 


t "ERROR MESSAGES DEFINED EXTERNALLY 





SEG 92 
Page 5 
DISK2: [SCODA.WNA. ZONA )ZQNA3.8LI;2 (5) 


VAX-11 Bliss-16 V4.0-579 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 





SEQ 93 
CZQNAEO DEQNA FUNCTIONAL TEST . 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 Page 6 
TEST 1 - NON-EXISTANT I/0 PAGE REGISTER TEST 27-Mar-1986 07:33:50 DISK2: [SCODA.QNA.ZQNA}ZQNA3.BLI;2 (6) 


sSBTTL ‘TEST 1 - NON-EXISTANT I/0 PAGE REGISTER TEST’ 


TEST 1: NON-EXISTANT I/0 PAGE REGISTER TEST 
DESCRIPTION: 


’ 

+ 

' 

' 

' 

: This test verifies that all the device registers residing in the 
: 1/0 Page can be accessed without forcing a non-existant memory (NXM) 
: interrupt. If the operator specifies loop on error, the program 
re-executes the code that detected the error until tC fg entered. 
é 

t 


Hardware tested: Q-Bus to DEQNA Slave Registers Interface 
Processing: 


a ady for NXM int t 
or inter 
REPEAT For oe” 


seuery I/0 page register 
page ister 
IF “nxt i cles 
THEN 
ai error message if not inhibited 
ENDREPEAT 


write a data pattern into the first 2 1/0 page 
isters 
IF occured 
no t if not inhibited 
rint error i no j iD! 
exgtNOiF eer 


test was modified to ensure that return PC after a trap to 4 was to 
@ valid address. Previous code read the csr contents og global 
T iler gprereted ¢ the following assembly code : v Gters, : 
or 017737 OFF The pe was incremented by 2 after reading the 
instruction 017737, incremented again a : after reading —~ offset for the 


This left the PC pointi tot big t address stored in memory. If a bus 
timeout trap to 4 occurred, ture Be we was wet ee sg the dest 
address. When the RTI inakeustion in 


instruction to be executed was the dest _sdrese! “B "Bs ‘oF 

a local 1, the resulting | assembly iS mov Legare 3 o Oi 708. OF Gere 

now, the is incremented by 2 after venting the instruction 0 

incremented again by 2 after reading the offset for the QNA CSR. "The "Pen now 

a. to hen next valid instruction, because the dest address is internal = 
and its address does not have to be fetched from memory . 





, 
. 
; 
; 
: 
: 
; 
; 
; 
; 
3 
> 
. 
: 
> 
; 
; 
; 
; 
; 
5 
+ 
. 
* 
; 
’ 
‘ 
; 
: 
“ 
+ 
: 
: 
2 
é 
; 
. 
a 
; 
: 
; 
? 
3 
; 
> 
, 
; 
: 
: 
3 
‘ 
> 


AANA BANS SISSON OND BANA ED BDI OOOO PUI UI OIE 


CZQNAEO DEQNA FUNCTIONAL TEST 27 
TEST 1 - NON-EXISTANT I/0 PAGE REGISTER TEST 27-Mar-1986 07:33:50 DISK2: [ 
BGNTST; 
LOCAL 
LOCFLG; fused to force 0177__ instr out of compiler 


SETVEC (4, ayn _* PRIO7); 
DELAY (MS_DELAY 
INTERRUPT_FLG = hear _FLG; 


TMP_IOP_ADR = .HWP TABLE [ ADOR } 
INCR INDEX FROM O TO 7 DO ; 


BGNSUB ; 
LOCFLG = ..TMP_IOP_ADR; 
Fo ¥C7)i We 
T_FLG EQLU WORD_LIMIT 
TF oN 
BEGIN 
CLRVEC (4); 
INTERRUPT FLG = CLEAR_FLG; 
PRINTB ( FISGS9 ); 
PRINTB ( MSG70, .TMP_IOP_ADR ); 
ERRDF (0101, MSGOO, E1$REPORT); 
DOCLN; 
END; 
ENDSUB ; 
TMP_IOP_ADR = .TMP_IOP_ADR + 2; 
END; 


TMP_IOP_ADR = .HWP ce { ADDR ]; 


INCR INDEX FROM 0 TO 1 
BEGIN 
“TMP IOP_ADR = X'7F'; 
DELAYC7 ; 
VINTERRUPT_FLG EQLU WORD _LIMIT 
TF itn 
CLRVEC ( 
INTERRUPT ELG = CLEAR FLG; 
oh 
ERRDF (0102, M&G00” ELSREPORT>: 
np DON: 
t 


ENDSUB 
eylt?-10P_ADR = .TMP_IOP_ADR + 2; 
; 


CLRVEC (4); 
ENDTST; 


-Mar - 1986 Oy Se ee VAX-11 B ige-46 V4 .0-579 


! SET UP_FOR AN NXM INTERRUPT 
! DELAY 50 x 100 us = 5 ms 
! CLEAR OUT NEX FLAG 


! SEE IF WE GOT A NXM INTRT 


! ADDRESS NOT THERE 
!'return vector to supervise: 
! CLEAR TRAP FLAG 


! 'I/0 PAGE REG. NOT PRESENT’ 


! WRITE FIRST 2 LOCATIONS 
! SEE IF WE GOT A NXM INTRT 
ae NOT ya 


ector to supervisor 
"EL EAR TRAP FLAG 


! ‘I/O PAGE REG. NOT PRESENT’ 


! CLEAR INTERRUPT VECTOR 





SEQ 94 
A.QNA.ZQNA]ZQNA3.BLI;2 





E8 


ZQNA3 
v01.0 


CZQNAEO DEQNA FUNCTIONAL TEST 
TEST 1 - NON-EXISTANT I/0 PAGE REGISTER 


SEQ 95 
VAX-11 Bliss-16 V4.0-579 
DISK2: [SCODA.QNA.ZQNA)ZQNA3.B8L1;2 


27-Mar-1986 07:36:09 
TEST 27-Mar-1986 07:33:50 


ZQNAS CZQNAEO DEQNA FUNCTIONAL TEST 
As ld 


TUS 
‘XMIT. CLR.DESCR 
COMPARE .PACKETS, E1$REPORT, ERRORSREPORT 
FORM. HEX KBD 


RESET.DEQNA, SEND. 
SEND. TEST.PACKET, INTR.TEST.PACKET 
SET.XDESCR.LIST, SET. ROESCR 
TURN. OFF.LED, VER. 
WAIT.FOR. TIMEOUT, WALKING.BIT 
WRT. STATION. XMIT. AND. RCV. PACKET 
.PACKET, XMIT. PACKET 
ROMCHK, RCV.D.LIST, XMIT.D.LIST 
DESCR.LIST, RCV.BUFFER BUFF 
DATA.BUFFER, T ‘ SADR 
IOP. TABLE, RD13, 1013, 1016, BD.PROM.DESCR 
STATION.AOR, PTRN. TABLE, HWP. TABLE 
SWP. TABLE, REG.ADR, GET. 
XBUF..LENGTH, RBUF.LENGTH, INTERRUPT .FLG 
SWP MEM, SWP. 


TEMP7, TEMPS. TEMP9. TADRi. TADR2 
TBYTE1, TBYTE2, TBYTE3, TAYTE4 
MSGOO, MSG71, MSG72, MSG73, MSG74 


MSG75, MSG76, MSGO1, MSGO2, MSGO3 
25, MSGO6, MSGO8 
MSGO9, MSG10, MSG11, MSGi2, MSG13 
MSG1i4, MSG15, MSG16, MSG 
MSG20, MSG21 


Page 


8 
(7) 





SEQ 96 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 Page 9 
vo1.0 TEST 1 - NON-EXISTANT I/0 PAGE REGISTER TEST 27-Mar-1986 07:33:50 DISK2:(SCODA.QNA. ZONA ZONAS. BLI;2 (7) 
-SBTTL $T1 TEST 1 - NON-EXISTANT I/0 PAGE REGISTER TEST 
000000 -PSECT ABSCODE$, RO 
000000 004137 000000G $T1: JSR R1, $SAVES ; 1614 
000004 005746 TST - 
000006 012746 000000G MOV #PRIO7, -(SP) ; 1672 
000012 012746 000000G MOV #NXM INT, -CSP) 
000016 012746 000004 MOV #4,-(SP 
012746 000003 MOV #3,-CSP 
044 TRAP 37 
000030 012701 000062 MOV #62 ,R1 ; *,$$TMP2 1673 
000034 001410 1$: BEQ 
000036 013700 000000G MOV L$DLY,RO ; *, $$TMP1 
000042 001403 BEQ 
000044 000010 2$: CLR 10(SP ) ; $$TMP 
000050 077003 SOB RO,2$ ; $$TMP1,* 
000052 005301 3$: DEC R1 ; $$TMP2 
000054 000767 BR 1$ 
000056 005037 000000G 4$: CLR se thee 2 FLG ; 1674 
000062 017737 000000G 000000G MOV HWP . TABLE , TMP. IOP. ADR ; 1676 
000070 012702 000010 MOV »R2 ; *, INDEX 1677 
000074 1 S$: TRAP ; 1678 
000076 017703 000000G MOV QTMP IOP .ADR,R3 ; *,LOCFLG 1680 
000102 012701 000007 MOV #7,R1 ; *,$$TMP2 1681 
000106 001410 6$: BEQ 
000110 013700 000000G MOV LSDLY,RO ; *,$$TMP1 
000114 1403 BEQ 
000116 000010 7$: CLR 10(SP) ; $$TMP 
0001 077003 SOB RO,7$ ; $$TMP1,« 
000 1 8$: DEC Ri ; $$TMP2 
000 000767 BR 6$ 
000130 023727 000000G 177777 9$: CMP INTERRUPT .FLG, #-1 ; 1682 
000136 001032 BNE 10$ 
000140 Thecee 000004 MOV 1685 
00503 1686 
1687 
1688 
1689 





1684 
1691 


ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09  VAX-11 Bliss-16 V4.0-579 Page 10 
v01.0 TEST 1 - NON-EXISTANT I/O PAGE REGISTER TEST 27-Mar-1986 07:33:50  DISK2:(SCODA.QNA. ZQNA}ZQNA3.BLI;2 (7) 
000226 ROR RO 
000230 1093721 BLO 5$ 
32 000002 0000006 ADD #2, TMP. IOP. ADR ; 1693 
000240 077263 SOB 2: ; INDEX, « 1677 
000242 017737 000000G 0000006 MOV SHWP . TABLE, TMP. IOP. ADR ; 16% 
000250 012702 000002 MOV #2,R2 ; *, INDEX 1697 
000254 11¢: TRAP 2 ; 1698 
000256 012777 000177 0000006 MOV $177, TMP. IOP.ADR 1700 
000264 012701 000007 MOV #7,Ri ; *, $$TMP2 1701 
000270 001410 12$: BEQ 15 
000272 013700 000000G MOV L$DLY,RO 5 &, $$TMPL 
000276 001403 BEQ 14$ 
000300 000010 13$: CLR 10(SP) ; $$TMP 
000304 077003 SOB RO, 138 ; $$TMP1, « 
000306 14%: DEC Ri ; $$TMP2 
000310 000767 BR 12$ 
000312 023727 000000G 177777 15$: CMP INTERRUPT .FLG, #-1 1702 
000320 001032 BNE 16$ 
000322 012700 000004 MOV #4,RO 1705 
000326 104436 TRAP 36 
000330 005037 0000006 CLR INTERRUPT .FLG 1706 
000334 012716 0000006 MOV #MSG59, (SP) ; 1707 
000340 000001 MOV #1,-(SP) 
000344 010600 MOV SP RO ; SP,« 
000346 TRAP ss «14 
000350 013716 0000006 MOV TMP. IOP. ADR, (SP) 1708 
000354 012746  00000G MOV #MSG70, -(SP) 
360 012746 000002 MOV #2, -(SP) 
000364 Ol MOV SP »RO ; SP * 
104414 TRAP = ss«14 
000370 104455 TRAP 3=s-«§5 : 1709 
000372 000146 .WORD 146 
000374 000000G “WORD 
000376 0000006 .WORD €1$REPORT 
104444 TRAP 0s «44 
000402 062706 000006 ADD #6,SP 1704 
104467 16$: TRAP 67 : 1711 
000410 006000 ROR RO 
000412 103720 BLO 11$ 
000414 737 000002 0000006 ADD 42, TMP IOP. ADR ; 1713 
077264 SOB R2, ; INDEX,«* 1697 
012700 000004 MOV $4. . 1716 
000430 104436 TRAP 36 
000432 062706 000012 ADD #12,SP ; 1014 
000436 000207 RTS pC 


; Routine Size: 144 words, Routine Base: oe ¢ 0000 
; Maximum stack depth per invocation: 14 words 


-SBTTL Ti TEST 1 - NON-EXISTANT I/0 PAGE REGISTER TEST 





H8 


ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 
V0O1.0 TEST 1 - NON-EXISTANT I/O PAGE REGISTER TEST 27-Mar-1986 07:33:50 
000000 004737 000000’ Ti:: 
00C 790 1$: JSR PC,$Ti 
000004 104466 TRAP 66 
000006 006000 ROR RO 
000010 103773 BLO 1$ 
000012 000207 RTS PC 
; Routine Size: words, Routine Base: ABSCODE$ + 0440 
; Maximum stack davth per invocation: 2 words 
; 1719 1 
: 1720 1 


SEQ 98 


VAX-11 Bliss-16 V4.0-579 Page ii 
DISK2:(SCODA.QNA.ZQNA]ZQNA3. BLI;2 (7) 
; 1716 


peated 


SEQ 99 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 Page 12 
V0O1.0 TEST 2 - CSR STATIC BIT TEST 27-Mar-1986 07:33:50 DISK2: [SCODA.QNA.ZQNA)ZQNA3.BLI;2 (8) 
: I s SSBTTL ‘TEST 2 - CSR STATIC BIT TEST’ 
; 1722 1 !ee 
s ves i ! 
s ire i ! TEST 2: CSR STATIC BIT TEST 
s soa 3 : 
; +55 ; DESCRIPTION: 
; ! 
; 1728 1 : This test verifies that the CSR register static bits can be set 
s ite } . and cleared as specified. The host writes data patterns to this 
; 1730 1 : ister and reads them back verifying no static 
. tae & : (stuck at 1 / stuck at 0) faults occur. If the operator specifies 
; i732 i : loop on error, the program re-executes the code that detected the 
; iaee ; error until tC is entered. 
; o 
; +a ; Hardware tested: Q-Bus to DEQNA Slave Regs. Interface 
; 2 
s svar i : Processing: 
s 1738 1 : 
s kan 3 ! BEGIN Si 
; 1740 1 : check Software Reset ( SR ) bit in the CSR for stuck at 0 
s 1741 i ! and 1 
s 172 i : IF error 
; wot lf int if not inhibited 
; ! rint error message if not inhibi 
; 1745 1 ! END TF 
; 174 1 : set static bits ( 0,3,8,9 ) and check for expected CSR status 
; 1747 1 ’ F error 
. 1748 1 : . . . . ~ 
: 1 Sp : po error message if not inhibited 
; : 
: wae -a : clear static bits and check for expected CSR status 
> tae Ss : F error 
; 1738 i ; int if not inhibited 
; ! rint error message if not inhibi 
5 ine s : ENDIF 
5s ime 2 ! set static bits ( 0,3,8,9 ) and check for expected CSR status 
s ine 3 ! IF error 
1739 i int message if not inhibited 
; : int error if not inhibi 
; 1760 1 ! it 
s me 3 ! reset DEQNA and check for expected CSR status 
> ime gs ! IF error 
Het! asrlot error eaconge IF net inhibit 
$ ! int error if not inhibi 
$s tue 2 : ENDIF 
; 1766 1 ! END 
; 1767 1 !-. 





€ MSG62 ); 
PRINTB € MSG30O, .GET_ADR [ CSR_ALL ], .TEMP3, ZERO ); 
ERRDF ( 0203, MSGOO, E1$REPORT ); 
; 


SEQ 100 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 Page 13 
V01.0 TEST 2 - CSR STATIC BIT TEST 27-Mar-1986 07:33:50 DISK2:[SCODA. ONAY 2 ZQNA }ZQNA3.BLI;2 (9) 
; 1768 3 BGNTST; 
; 1769 3 
» es BGNSUB ; 
: 178 8 
3 Ses 
1778 : ! CHECK IF CSR STATIC BITS (BIT 0,3,8 AND 9) ARE NOT STUCK AT 0 
; - 
; ivi 
; 17% 5 RESET_DEQNA ( 
; 4777: «5 PUT BIT (CSR, ht BITS. PATRNL ); 
; 1778 5 DELAY ( TIME6(L ); 
; 1779 § TEMP 2 capo er BIT f CSR_ALL } AND PATRN1; 
; 1780 5 IF .TEMP1 NEQU PATRNI~ 
3 1781 5 
; 1782 6 BEGIN 
; 1783 6 PRINTB ( MSG59 ); 
; 1784 6 PRINTB ( MSG6O ); 
; 1785 6 PRINTB ( MSG30, .GET_ADR [ CSR_ALL ], .TEMP1, PATRNi ); 
; +i H ERRDF € 0201, MSGOO, E1$REPORT ); 
; ; 
; 1788 3 ENDSUB ; 
8 1789 3 
; 1790 3 bes 
; 1791 3 ! CHECK IF CSR STATIC BITS (BIT 0,3,8 AND 9) ARE NOT STUCK AT 1 
; i-- 
3 1793 3 
; 1794 5 BGNSUB ; 
; 1795 5 PUT_BIT ( CSR, ALL_BITS, ZERO ); 
; 179% 5 DELAY ¢ TIMES "LIMIT ); 
; 1797 5 TEMP2 = BIT { CSR_ALL } AND PATRNI; 
; 1798 5 IF TEMPS NEGU QU ZERO 
; 1799 § HEN 
; 1800 6 BEGIN 
; 1801 6 PRINTB ( MSG59 ); 
; 1802 6 PRINTB ( MSG61 ); 
; 1803 6 PRINTB ( MSG30, .GET_ADR ALL ], .TEMP2, ZERO); 
; 1804 6 ERRDF ( 0202, MSGOO, E14 oat ); 
; 1805 5 ; 
; 1806 3 ENDSUB ; 
; 1807 3 
; 1808 5 BGNSUB ; 
; 1809 5 PUT_BIT ( CSR, ALL_BITS, PATRNi ); 
; 1810 5 RESET _DE : 
; 1811 5 TEMP3 = GET BIT_{ CSR_ALL ] AND PATRNi; 
; 1812 5 IF .TEMP3 NEQU 
; 1813 5 THEN 
; 1814 6 BEGIN 
; 1815 6 PRINTB ( MSG59 ); 
; 1816 6 PRINTB 
3 6 
: 6 
; 5 
s 3 


ENDSUB ; 





CZQNAEO DEQNA FUNCTIONAL TEST 
TEST 2 - CSR STATIC BIT TEST 


ENOTST; 
000000G 
000016 


000000G 
001411 000016 


000016 


v00000G 
000016 
00000 


1 


$T2: 


1$: 


2$: 


3$: 
4$: 
5$: 


6$: 


7$: 


.SBTTL 
J 


S03 G88 ggg {gEEEEREES GSES goEEI9%E 


27-Mar-1986 07:36:09 
27-Mar-1986 07:33:50 


$T2 4 2 2 - CSR STATIC BIT TEST 


Ri, §$SAVE2 
#16 


2 
PC RESET . DEGNA 
#1411, 16(R1) 
#1,R2 


L$DLY,RO 
14(SP) 

RO, 3$ 

R2 

TecR1) (SP) 

C EMP 
#176366, TEMP1 








SEQ 101 


VAX-11 Blies-16 V4.0-579 4 
DISK2:{SCODA.QNA.ZQNAJZQNA3.BLI;2 "(45 
1718 
1768 
1776 
1777 
«, $$TMP2 1778 
«, $$TMP1 
$$TMP 
$$TMP1,+ 
$$TMP2 
; *, TMP LOCATION 
; THP LOCATION, « —" 
1780 
1783 
SP, + 
1784 
SP, 
1785 
«, TMP LOCATION 
; *, TMP.LOCATION 
THP LOCATION, « 
SP ,* 
1786 
1782 
1787 
1788 
1795 
*, $$TMP2 1796 


QNAEO DEQNA FUNCTIONAL TEST 


CZ 
TEST 2 - CSR STATIC BIT TEST 
8$: 


000016 
12$: 


13$: 
0000006 
001411 000016 
000000G 


000000G 

000016 000010 
000010 000000G 
176366 


000000G 
000001 


000000G 
000001 


MOV 


ADD 
MOV 
MOV 
MOV 
TRAP 
TRAP 
. WORD 
. WORD 
. WORD 
ADD 
TRAP 
ROR 
BLO 
TRAP 
MOV 
MOV 
JSR 
MOV 
MOV 
MOV 
BIC 
BEQ 
MOV 
MOV 
MOV 
TRAP 
MOV 
MOV 
MOV 
TRAP 


27-Mar-1986 07:36:09 
27-Mar-1986 07:33:50 

11$ 

L$DLY,RO 

10$ 

14(SP) 

RO, 9$ 

R2 

ie R1),4(SP) 

rats TEMP2 

#176366, TEMP2 


Ne 
g 


Rg¢° 
_ 
S58 
8 


Xe 
Ao 
Sin 

oO 
_ wr 


pail 16cR0) 
RESET . DEQNA 


SEQ 102 
VAX-11 Bliss-16 V4.0-579 p 
DISK2:{SCODA.QNA.ZQNA}ZQNA3.BLI:2 | (33 
; *,$$TMPL 
; $$TMP 
; $$TMP1,« 
; $$TMP2 
; *,1MP.LOCATION 
; TMP.LOCATION, + any 
; 1798 
‘ 1801 
; SP,* 
; 1802 
; SP,* 
; 1803 
; *, TMP.LOCATION 
; *, 1MP.LOCATION 
; TMP .LOCATION, + 
; SP ,* 
; 1804 
; 1800 
; 1805 
; 1806 
3 1809 
: 1810 
; 1811 
; *, TMP.LOCATION 
; TMP .LOCATION, = 
; 1812 
; 1815 
; SP ,* 
; 1816 
; SP, * 





Rh hain a: 





SEQ 175 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 B ise-16 V4.0-579 Page 16 
V01.0 TEST 2 - CSR STATIC BIT TEST 27-Mar-1986 07:33:50 DISK2:(SCODA.QNA. 7QNATZONAS. BLI;2 (9) 
00522 16 CLR (SP) 1817 
000524 013746 0000006 MOV TEMP3, -(SP) 
000530 013766 000000G 000022 MOV GET. ADR, 22(SP) ; *,TMP.LOCATION 
000536 062766 000016 000022 ADD #16, 22( SP) ; *, TMP.LOCATION 
000544 016646 000022 MOV 22( SP). -¢$P) ; TMP. LOCATION, « 
000550 012746 000000G MOV #MSG30, -(SP) 
000554 012746 000004 MOV $4,-(SP) 
000560 010600 MOV SP RO ; SP,« 
000562 104414 TRAP = «14 
000564 104455 TRAP 3=s-s«&5S 1818 
000566 000313 .WORD 313 
000570 "WORD  MSGOO 
000572 0000006 “WORD  EJS$REPORT 
000574 062706 000016 ADD #16, SP 1814 
000600 104467 144: TRAP 67 1819 
000602 ROR RO 
000604 103706 BLO 13$ 
000606 062706 000016 ADD #16,SP ; 1718 
000612 000207 RTS PC 

; Routine Size: words, Routine Base: : + 0454 

: Maximum stack death per invocation: 19 words 


-SBTTL T2 TEST 2 - CSR STATIC BIT TEST 
000000 004737 000454’ T2:: 


000000 1$; JSR PC,#T2 ; 1820 
000004 104466 TRAP 66 


000006 006000 ROR RO 
000010 103773 BLO 1$ 
000012 000207 RTS PC 


; Routine Size: 6 words, Routine Base: ABSCODE$ + 1270 
Maximum stack depth per invocation: 2 words 


s ie 3 
; 1824 1 


nen eultleaat bit set): 
rint error if not inhibited 
ENDIF it ait 


END 


ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 Page 17 
v01.0 TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST 27-Mar-1986 07:33:50 DISK2: (SCODA.QNA. ZQNA }ZQNA3.BLI;2 (10) 
; er : sSBTTL ‘TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST’ 

; 7+ 

; 1827 1 : 

; res : TEST 3: ETHERNET STATION ADDRESS VERIFY TEST 

; 

; sane ; DESCRIPTION: 

: 

; 1832 1 ! This test verifies that the Ethernet Station Address PROM can be 

; 1833 1 ! read and loaded to host memory ed’ Prom PROM dete’t Station Address is 
; 18634 i : pape and checksum is computed from data read and this checksum 
s ime 3 ! red to the checksum stored in the Ethernet Station Address 

s eae 3 ! PROM. Reet Station Address is always printed out on the console in 
; 1837 1 ! the Ethernet awe format. If the address ig not proper, the error 
; 1838 1 : is recorded and mere ropriate error message is printed out on the 

; 16359 1 : console. If the opera y tbh ne loop on error, the program 

; rot : re-executes the code that detected the error unt}] tC is entered. 

; 

; 1642 1 ! Hardware tested: Station Address PROM 

>; 1843 1 : ; Q-Bus DMA Interface 

; 18644 1 : Processing: 

; 1645 1 ! 

; 1846 1 ! BEGIN 

s we & ! 

; 1848 1 ! read DEQNA Station Address PROM and checksum 

; 18649 1 : save Copy of Station Address PROM in host memory 

; 1850 1 ; print Station Address on the console in standard format 

s fee 32 ! compute Station Address ROM checksum 

| i 2 ! IF checksum read not equal checksum computed 

; 1853 1 : THEN — : 

; 1854 1 : int error message if not inhibited 

s ae 2 ! : 

; 1656 1 ! IF Station 

.. ie 2 ' all 0's 

s ae i ! OR [ell i'‘s 

: 1 : 

; 1 ! 

; 1 ! 

; 1 ! 

; 1 ! 

; 1 : 

; 1 ! 





uit PAPA ADA NAIA AMAA AAA AAA TAA AAA AAI UU UU UI UU UU Un od 





CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-.6 V4.0-579 
TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST 27-Mar-1986 07:33:50 DISK2: ( SCODA.QNA.ZQNA]ZQNA3.BLI;2 


BGNTST ; 


nese! DEQNA ( ) 
ORM_AEX_ADR ( PHA_INDEX ); 


Soe 


' COMPUTE EXPECTED CHECKSUM 


romchk ( ); use macro routine to calculate sum 
BLISS doesn't know how to do add carry 
CHECKSUM = 0; 
INCR INDEX FROM 0 TO 5 BY 2 DO 
Fc .CHECKSUM AND #0'100000' ) NEQU ZERO 
BEGIN 
BESS > BERS | i 
CHECKSUM = .CHECKSUM ft 1; 
CHECKSUM = .CHECKSUM + .STATION_ADR [ .COUNTER }; 
*. Datel GTRU WORD_LIMIT 
CHECKSUM = .CHECKSUM + 1; 
— = .COUNTER + 1; 


' 
' 
t 
' 
; 
: 
' 
' 
' 
: 
: ELSE 
' 
' 
' 
' 
' 
‘ 
' 
, 


See 
! PRINT PHYSICAL STATION ADDRESS 


P en 
PRINTB ( MSGO1, .HWP_TABLE [ ADDR } ); 
PRINTB ( PHYS_ADR ); 


t 
: READ ACTUAL CHECKSUM FROM DEQNA STATION ADDRESS PROM AND COMPARE IT TO 
= THE EXPECTED CHECKSUM COMPUTED ABOVE. 


PUT_BIT ( CSR, LB, EXT_LOOPBACK ); 
DEL > 


Ay ¢ =” 
TEMP1 G_ADR { 1, ALL_BITS }; 
TEMP1 -TEMP1 + 8; 
TEMP2 = .REG_ADR [ 0, ALL rd! 
STATION_ADR (CHSUM ] = .TEMP1 € .TEMP2 AND #0'000377' ); 





SEQ 106 
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V01.0 TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST 27-Mar-1986 07:33:50  DISK2:(SCODA.QNA. ZONA} ZQNAS. BLI;2 (11) 
; 1919 5 PUT_BIT ( CSR, LB, ZERO ); 
; 1920 § IF [CHECKSUM NEQU’.STATION_ADR [ CHSUM ] 
; 1921 § THEN 
:; 1922 6 GIN 
; 1923 6 PRINTB ( MSGS9 ); 
; 1924 6 PRINTB ( MSG63, .CHECKSUM, .STATION_ADR [ CHSUM } ); 
; 1925 6 ERRDF (0301, MSGOO, E1$REPORT); 
; 1926 5 END; 
; 1927 3 ENDSUB ; 
3 1928 3 
; 1929 3 TEMP3 = ZERO; 
; 1930 3 Ls = 
; 1931 3 INDEX FROM © TO 2 DO 
3 1932 4 a ee 
; 1933 4 TEMP3 = .TEMP3 + .STATION_ADR [ .INDEX ]; 
; 1334 ‘ IF STATION_ADR [ .INDEX J EQLU #X'FFFF! 
; 
; 1936 4 TEMP4 = .TEMP4 + 1; 
; 1937 3 END 
; 1938 3 
; 1939 4 IF (¢ .TEMP3 EQLU ZERO ) 
; 1940 4 OR ( |TEMP4 GTRU ZERO ) 
; 1941 4 OR (( .STATION_ADR [ ZERO ] AND #X'0100' ) EQ@LU #x'0100' ) 
; 1942 3 THEN 
; 1943 4 BEGIN 
; 1944 4 ( MSGS59 ); 
; 1945 4 PRINTB ( MSG64 ) 
; (1946 4 PRINTB ( PHYS_ADR ); 
; 1947 4 € 0302, MSGOO, E1$REPORT); 
; 1948 3 END; 
3 1949 3 
; 1950 1 ENDTST 
.SBTTL $T3 TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST 
000000 004137 0000006 $T3 JSR 1, $SAVE2 : 1822 
000004 162706 000006 SUB #6,S5P 
000010 1$ TRAP 2 ; 866 
000012 0000006 JSR PC RESET. DEQNA : 1869 
000016 012746 000023 MOV #23, -(SP) ; 1870 
000022 737 000000G JSR PC, FORM.HEX. ADR 
000026 004737 000000G JSR PC, ; 1876 
000032 017716 000000G MOV @HWP . TABLE, (SP) ; i 
000036 012746 000000G MOV #MSGO1, -(SP) 
000042 012746 000002 MOV $2,-(SP) 
000046 01 MOV SP RO ; SP,s 
000050 10441 TRAP 3 s«4 
000052 012716 MOV #PHYS ADR, (SP) : 1906 
000056 012746 000001 MOV #1, -(SP) 
000062 O1 MOV ‘RO ; SP, 
000064 104414 TRAP = -'14 
000066 013701 000000G MOV REG. ADR,R1 ; 1913 
000072 761 001400 000016 BIS #1400, 16(R1) 





ZQNAEO DEQNA FUNCTIONAL TEST 


23: 


3$: 
4$: 
5$: 


6$: 


7$: 


8$: 


: 


Sich tiie 


Mar-1986 07: 


C 27- : 
TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST 27-Mar-1986 07:33: 


2$ 
2(R1), 10(SP) 
10(SP}, RO 


RO, TEMP1 

(Ri), 12(SP) 

(R1). TEMP2 

STATION. ADR+6 

(Ri), STATION. ADR+6 

, STATION. ADR+6 

#1400, 16(Ri) 

CHECKSUM, STATION. ADR+6 

#MSG59, (SP) 

#1,-(SP) 

m 

STATION. ADR+6, (SP) 
SUM, -(SP 5 


STATION. ADRCRO), TEMPS 
oo ADRCRO), #-1 


; $$ 
; $$T 
& 


VAX-11 Bliss-16 V4.0-579 
DISK2: [SCODA.QNA.ZQNA)ZQNA3.B8L1;2 


; *,$$TMP2 
*,$$TMP1 


$$TMP 
TMP1,* 
MP2 


TMP .LOCATION 
TEMP1 


* 
*, TMP .LOCATION 
TMP .LOCATION, « 


TEMP2 ,* 
TEMP1,* 





P 20 
oF «) 


1914 





ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 
v01.0 TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST 27-Mar-1986 
000 032737 000400 0000006 BIT #400, STATION. ADR 
000370 001430 BEQ 10$ 

000372 012746 0000006 Qf: MOV #MSG59, -( SP) 
000376 012746 000001 MOV #1,-(SP) 
000402 01 MOV SP RO 

000404 104414 TRAP 3s «4.4 

000406 012716 0000006 V #MSG64, (SP) 
000412 012746 000001 MOV #1,-(SP) 
000416 O01 V SP ,RO 

000420 104414 TRAP 3s «14 

000422 012716 0000006 V YPHYS. ADR, (SP) 
000426 012746 000001 MOV #1,-(SP) 

000432 01 V 

000434 104414 TRAP 3 s«4 

000436 104455 TRAP =«-«55 

000440 000456 .WORD 456 

000442 “WORD 

000444 0000006 -WORD E1$REPORT 
000446 062706 000010 ADD 10 

000452 062706 000006 10$: ADD #6, SP 

000456 RTS PC 

; Routine Size: 152 words, Routine Base: 2 one + 1304 


; Maximum stack depth per invocation: 16 wo 


000010 
000012 


; Routine Size: 


004737 001304! 


104466 
006000 
103773 
000207 


-SBTTL 13 TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST 


13: JSR 


PC, $T3 
TRAP 66 
ROR RO 
BLO 1$ 
RTS PC 


Routine Base: ABSCODE$ + 1764 
2 words 


words, 
; Maximum stack dott per invocation: 


; ta 
; 1952 


1 


07: 
07: 
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SEQ 108 
Page 21 
DISKS: : (SCODA.QNA.ZQNA]ZQNA3.BLI;2 (11) 
1941 
1944 


1945 


1946 


1947 


1943 
1822 


1948 





reset device 

REPEAT for each pattern ; 
write pattern to Vector Address Register ( bits 9:2 ) 
read pattern from Vector Address Register ( bits 9:2 ) 
compare write pattern to read pattern (less noise bits) 
IF not equal 
ae int if not inhibited 

int error 1 no ' iD 

ENDIF ont 


ENDREPEAT 
END 


SEG 109 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 Page 22 
vO1.0 TEST 4 - INTERRUPT VECTOR ADDRESS TEST 27-Mar-1986 07:33:50 OISK2: [SCODA.QNA.ZQNA)ZQNA3.BLI;2 (12) 
; ian : sSBTTL ‘TEST 4 - INTERRUPT VECTOR ADDRESS TEST’ 
; _*?¢ 
5 Ia U8 : 
; RSS ; TEST 4: INTERRUPT VECTOR ADDRESS TEST 
: : 
; 130 ¢ DESCRIPTION: 
; 1960 1 : This test verifies that all bits of the vector address register 
; 1961 1 : can be set and cleared as specified. The host writes data patterns 
; is : to this ister and reads them back verifying no static 
; i965 i : (stuck at 1 / stuck at 0) faults occur. If the operator specifies 
> 1964 1 : loop on error, the program re-executes the code that detected the 
; ior : : error until tC is entered. 
; 1967 1 : NOTE: Only bits 9:2 of the Iiterrupt Vector Address Register are 
; on : valid, rest read as 0. 
; : 
; toe : The following BINARY data patterns are used: 
; meee o : 00000000 11111111 
: ia 2 ! 10101010 01010101 
s 1974 1 11001100 00110011 
; tore i saiiiey i/si & eeeeeibion Wow Weoter Odtrece ten 
3 walk i 's, p 1 ru Vector ess . 
: the : atk inn 0's, 0 propagating thru Vector Address Reg. 
; 
[:. ee Hardware tested: Device Vector Address Register 
; 1980 1 Slave Interface Registers 
s 1961 i - 
Y. 2 i Processing: 
; eae i 
; i BEGIN 
; 1 
; 1 
; 1 
; 1 
; 1 
; 1 
; 1 
; 1 
; 1 
; 1 
; 1 
; 1 
; 1 
; 1 





SEQ 110 
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V01.0 TEST 4 - INTERRUPT VECTOR ADDRESS TEST 27-Mar-1986 07:33:50 | DISK2:{SCODA.QNA.ZQNAJZQNA3.BLI;2 (13) 
; 1999 3 BGNTST; 
; 2000 3 
; 2001 3 RESET_DEQNA ( ); 
— oo 
; :+¢ 
; 2004 3 ! WRITE ALTERNATING 0'S AND 1'S TO INTERRUPT VECTOR ADDRESS REGISTER 
; 2005 3 : IN THE 1/0 PAGE, THEN READ AND COMPARE TO THE WRITE PATTERN 
:; 2006 j<- 
3 2007 3 
; 2008 3 INCR INDEX FROM 0 TO 7 DO 
; 2010 4 TBYTE1 = .PTRN_TABLE [ .INDEX }; 
; 2012 6 PUT_BIT { INT_VEC, VEC_ADR, .TBYTE1 ]; 
; 2013 6 IF GET_BIT { INT_VEC, VEC_ADR ] NEQU .TBYTE1 
; 2014 6 THEN 
; 2015 7 BEGIN 
; 2016 7 PRINTB ( MSG59 ); 
; 2017 7 PRINTB ( MSG65 ); 
; 2018 7 PRINTB ( MSG30, .GET_ADR [ VEC_ALL J, GET_BIT [{ INT_VEC, VEC_ADR }, .TBYTE1 ); 
; 2019 7 ERRDF ( 0401, MSGOO, E1$REPORT ); 
; 2020 6 END; 
; 2021 4 ENDSUB; 
; 2022 3 : 
$ 2023 3 les 
; 2024 3 ! WRITE WALKING 1 PATTERN INTO THE INTERRUPT VECTOR ADDRESS IN THE 1/0 PAGE 
; 2025 3 : REGISTER THEN READ AND COMPARE TO THE WRITE PATTERN 
; ;== 
; 2027 3 
; 2028 3 TEMP1 = #B'00000001' ; 
; 2029 3 
; 2030 3 INCR INDEX FROM 0 TO 7 DO 
; 2031 4 BEGIN 
; 2032 6 BGNSUB ; 
; 2033 6 PUT_BIT [ INT_VEC, VEC_ADR, .TEMP1 }; 
; 2034 6 IF GET_BIT { INT_VEC, VEC_ADR ] NEQU .TEMP1 
; 2035 6 THEN 
; 2036 7 BEGIN 
; 2037 7 PRINTB ( MSG59 ); 
; 2038 7 PRINTB ( MSG65 ); 
; 2039 7 PRINTB ( MSG30, .GET_ADR [ VEC_ALL ]}, GET_BIT [ INT_VEC, VEC_ADR }, .TEMP1 ); 
; 2040 7 € 0402, MSGOO, E1$REPORT ); 
; 2041 6 END; 
; 2042 6 TEMP1 = .TEMP1 ¢ 1; 
; 2043 4 ENDSUB; 
; 2044 3 ; 
; 2045 3 
; 2046 3 tee 
; 2047 3 ! WRITE WALKING 0 PATTERN INTO THE INTERRUPT VECTOR ADDRESS IN THE I/O PAGE 
: 2048 3 ! REGISTER THEN READ AND COMPARE TO THE WRITE PATTERN 
; eels 
; 2050 3 
; 2051 3 TEMP1 = #B'11111110'; 





SEQ 111 





CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 
TEST 4 - INTERRUPT VECTOR ADDRESS TEST 27-Mar-1986 07:33:50  DISK2:{SCODA.QNA.ZQNA]ZQNA3.BLI;2 
; 2052 3 
; 2053 3 INCR INDEX FROM 0 TO 7 DO 
; 2054 4 BEGIN 
+ ose e PUT ert { INT.VEC. VEC_ADR . 
; 
; 2057 6 TF Get Bit t INT VEC, Ver ADR TN NEQU .TEMP1 
; 2058 6 THEN 
; 2059 7 BEGIN 
; 2060 7 PRINTB ( MSGS9 ); 
; 2061 7 PRINTB ( MSG65 ); 
; 2062 7 PRINTB ( MSG30, .GET_ADR [ VE CALL J, GET_BIT { INT_VEC, VEC_ADR }, .TEMP1 ); 
; 2063 7 ERRDF ( 0403, MSGOO, E1$REPORT ) 
3 2064 6 ; 
; 2065 6 
; 2066 6 TEMP1 = (( .TEMP1 t 1 ) + 1 ) AND #0'000377' ; 
; 2067 4 ENDSUB ; 
3 2068 3 ; 
3 2069 3 
; 2070 1 ENDTST; 
.SBTTL $14 TEST 4 - INTERRUPT VECTOR ADDRESS TEST 

000000 004137 0000006 $14: JSR Ri, $SAVE2 1950 
000004 162706 000022 SUB #22, SP 
000010 004737 000000G JSR PC, RESET .DEQNA 2001 
000014 005001 CLR Ri ; INDEX 2008 
000016 116137 0000006 0000006 1$: MOVB = PTRN. TABLE(R1), TBYTE1 ; *CINDEX),« 2010 
000024 105037 000001G CLRB = TBYTE1+1 
000030 104402 2$: TRAP 2 
000032 013700 0000006 MOV REG. ADR, RO ; 2012 
000036 013702 0000006 MOV TBYTE1,R2 
000042 006302 ASL R2 
000044 ASL 
000046 042702 176003 BIC #176003,R2 
000052 042760 001774 000014 BIC $1774, 14(RO) 
000060 059260 000014 BIS at 
000064 016016 000014 MOV 14(RO), (SP) ; *, TMP.LOCATION 2013 
000070 013702 0000006 MOV TBYTE1.R2 
000074 011600 MOV (SP),RO ; TMP.LOCATION, « 
000076 006200 ASR RO 
000100 006200 ASR RO 
000102 042700 177400 BIC #177400, RO 
000106 020002 CMP RO,R2 
000110 001456 BEQ ae 
000112 012746 0000006 MOV -(SP) 2016 
000116 012746 000001 MOV #1,- #1. -(56) 

1 MOV : SP * 

104414 TRAP ig’ 
000126 012716 0000006 MOV (SP) ; 2017 
000132 012746 000001 MOV #1,- #1. (36) 
000136 010600 MOV SP.RO ; SP,* 
000140 104414 TRAP 3s «14 
000142 013716 0000006 MOV TBYTE1, (SP) ; 2018 





CZQNAEO DEQNA FUNCTIONAL T 


TEST 
TEST 4 - INTERRUPT VECTOR ADDRESS TEST 


000000G 
000014 000010 
000010 
177400 


000000G 000014 
000014 000014 


3$: 


4$: 


27-Mar-1986 
27-Mar-1986 


REG. ADR,RO 
14(RO), 10(SP) 
10(SP),RO 


RO 
#177400 ,RO 


#14 
14(SP), -(SP) 
SP) 


$176003,R2 
#1774, 14(RO) 
Re 1a 6(SP) 
Has ;RO 

RO 





GET. ADR, 14(SP) 
14(SP) 
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DISK2: [SCODA.QNA. ZQNA}ZONA3.BLI;2 (13) 


*, TMP .LOCATION 
MP .LOCATION, « 


TMP .LOCATION 
TMP .LOCATION 


MP .LOCATION, « 


SP ,* 


*, INDEX 


*, TMP .LOCATION 
TMP .LOCATION, « 


SP, * 


SP, * 





SEQ 112 


2034 


2037 


2038 


2039 
4 


CZQNAE TEST 
TEST 4 - INTERRUPT VECTOR ADDRESS TEST 


000014 
000016 


177400 


000000G 
000014 


000000G 
000001 


000000G 
0000006 
000014 





O DEQNA FUNCTIONAL 


000016 


000022 
000022 


000024 


27-Mar-1986 07:36:09 
27-Mar-1986 07:33:50 


14(RO), 16(SP) 
SP),RO 


14(SP),RO 
RO 





VAX-11 Bliss-16 V4.0-579 
DISK2: [SCODA.QNA.ZQNA)ZQNA3.BLI;2 


*, TMP ..LOCATION 
TMP .LOCATION, « 


*, TMP .LOCATION 
*, IMP .LOCATION 
TMP .LOCATION, « 


SP ,* 


*«, TMP .LOCATION 
TMP .LOCATION, + 


SP, * 


*, TMP .LOCATION 


26 
9 13) 


2030 
2051 





ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36: VAX-11 Bliss-16 V4.0 
V01.0 TEST 4 - INTERRUPT VECTOR ADDRESS TEST 27-Mar-1986 07:33: 
000704 016600 000024 MOV 24(SP),RO ; TMP.LOCATION, « 
000710 ASR RO 
000712 006200 ASR RO 
000714 042700 177400 BIC #177400,RO 
000720 010046 MOV RO, -(SP) 
000722 013766 0000006 000030 MOV GET. ADR, 30(SP) ; *, TMP.LOCATION 
062766 000014 000030 ADD #14. 30(SP) ; *, TMP.LOCATION 
000736 016646 000030 MOV 30¢SP),-(SP ; THP.LOCATION, « 
000742 012746 0000006 MOV 30 -(SP 
000746 012746 000004 MOV $4, -CSP) 
010600 MOV SP RO ; SP,« 
000754 104414 TRAP 3s «14 
104455 TRAP 3=s-«&5 ; 
000760 000623 .WORD 623 
000762 “WORD 
000764 .WORD  ELS$REPORT 
000766 062706 000016 ADD 6,SP ; 
000772 013700 0000006 7$: MOV TEMP1,RO ; 
000776 006300 ASL RO 
001000 INC RO 
001002 0000006 CLR TEMP4 
1006 110037 0000006 MOVB _——- RO, TEMP4 
001012 104467 TRAP 67 
001014 ROR RO 
001016 103654 BLO 6$ 
1020 DEC 1 ; INDEX 
001022 001252 BNE 6$ 
001024 062706 000022 ADD $22,SP 3 ; 
001030 000207 RTS PC 
; Routine Size: 269 words, Routine Base: ABSCODE$ + 2000 
; Maximum stack depth per invocation: 2i words 


-SBTTL 14 TEST 4 - INTERRUPT VECTOR ADDRESS TEST 


000000 004737 002000’ T4:: 

000000 1$: JSR PC, $714 ; 
000004 104466 TRAP 66 

000006 006000 ROR RO 

000010 103773 BLO 1$ 

000012 000207 RTS PC 

; Routine Size: words, Routine Base: ABSCODE$ + 3032 

; Maximum stack deoth per invocation: 2 words 


; 2071 1 





SEQ 114 


:09 0-5 Page 27 
50 DISK2: {SCODA.QNA.ZQNA}ZQNA3.BLI;2 (13) 


2059 
2066 


1950 





SEQ 115 

ZQNA3 CZQNAEO DEQGNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 ” Page 28 
V01.0 TEST 5 - BOOT/DIAGNOSTIC PROM CHECKSUM TEST 27-Mar-1986 07:33:50 DISK2: [SCODA.QNA.ZQNA)ZQNA3.BLI;2 (14) 

ae sSBTTL ‘TEST 5 - BOOT/DIAGNOSTIC PROM CHECKSUM TEST’ 

2074 

or TEST 5: BOOT/DIAGNOSTIC PROM CHECKSUM TEST 

= Ls DESCRIPTION: 

2079 This test verifies that the contents of the on-board ROM 

2080 (Boot/Diagnostic ROM) can be loaded to the host memory correctly. 

2081 Checksum is gener shes from the ROM data read and this checksum is 

2082 c to checksum stored in the last word location of the 

2083 on- ROM. If the rator specifies loop on error, the program 

pans re-executes the code that detected the error until tC is entered. 

2086 

2087 Hardware tested: Q-Bus to DMA interface 

2088 18051 microprocessor 

2089 18051 ROM 

2090 CSR register 

2091 Receive FIFO 

2092 Processing: 

2093 

2094 BEGIN 

2095 reset device 

2096 


: 
; 
’ 
: 
; 
: 
; 
; 
: 
; 
; 
3 
: 
: 
$ 
$ 
; 
$ 
$ 
: 
$ 
; 2097 
$ 
; 
; 
; 
; 
: 
; 
; 
; 
; 
; 
; 
; 
; 
; 
3 
; 
i 
3 
; 
: 


2098 : jeep rece: FIFO 
2099 weit 10 msec. or until RL ( bit 5 in CSR ) = 0 
2100 status ( bit 5 ) and RCV Descriptor List status 
2101 IF error 
si08 e* t if not inhibited 
nt error if no 
Si08 ener message inn 
2105 clear Boot/Diagnostic ROM bit in CSR 
2106 This moves contents of FIFO to host memor 
2107 weit 10 msec. or until RCV Descriptor status 
ips IF change in status 
ot int error message if not inhibited 
2ii2 compute ROM checksum and compare to checksum read from ROM 
ste2 IF not equal 
2115 int error if not inhibited 
5116 ENDIF ” ssp 
2117 END 


a a a aah a a a ed odd ae odd 


, 
' 
' 
' 
' 
' 
' 
' 
' 
' 
’ 
' 
a 
: 
8 
’ 
: 
: 
8 
8 
: 
$ 
8 se 
: set 
8 
g 
: 
: 
: 
: 
g 
: 
8 
: 
g 
: 
HY 
g 
: 
: 
$ 
: 
: 
: 
'.. 





<N 


QNA 
01. 
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SEQ 116 
CZQNAEO DEQGNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 Sexe. L Bhige 6 V4.0-579 Page 29 
TEST 5 - BOOT/DIAGNOSTIC PROM CHECKSUM TEST 27-Mar-1986 07:33:50 . ZQNA )ZQNA3.BLI;2 (15) 
BGNTST; 


RESET DEQNA ( ); 
CLR_BUFFERS ( 2 *« K ); 


See 
! COPY BOOT/DIAGNOSTIC PROM DESCRIPTOR LIST INTO WORK AREA 


INCR INDEX FROM 0 Paty ng ae : ore 

DESCR_LIST [ . CEN ‘aD -PROM_DESCR [ .INDEX ]; 
. TOP_TABLE } Re RLO_ “AOR = RCV_D_LIST; 

. IOP_TABLE = 0; 


PUT_BIT ( CSR, LB, LE  ateelds 
PUT_BIT ( CSR, 8D, SET_IT ); 


DELAY ( K ) ive time for rev list invalid 
INCR INDEX FROM 0 TO TIME3.LIMIT DO i aes 
IF GET_BIT [ CSR, RL ] EQ@LU ZERO 
THEN” 
BEGIN 
TEMP1 = . INDEX; 
EXITLOOP; 
END 
ELSE 
IF .INDEX EQLU TIME3_LIMIT 
THEN 
BEGIN 


PRINTB ( MSG5S9 ) 
PRINTB ( MSG66, GET_BIT [ CSR.ALL } ) 
-— ( 0501, MSGOO, é $REPORT } 


VER_DESCR_STATUS ( ); 
See 
FINISH BOOT/DIAGNOSTIC PROM UPLOAD 


af EF BD, CLR_IT ); 
DELAY ( K 


feos 
: CHECK IF RECEIVE STATUS CHANGED 


VER_DESCR_STATUS ( ); 
RESET_DEQNA ( ); 
TEMPS = 0; 
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Mar -1986 VAX-11 Bliss-16 V4 


QNAEO DEQNA FUNCTIONAL TEST 27- 07:36:09 
27-Mar-1986 07:33:50 


CZ 
TEST 5 - BOOT/DIAGNOSTIC PROM CHECKSUM TEST 


TEMPS = DATA BUFFER CHSUM OFFSET oi); 
TEMP3 TEMPS t AND #X'FFOO 
TEMPS = CATA "BUFFER CHSUM_ oFFser’ } + . TEMPS; 
TEMP2 = .DATA_BUFFER [ .TEMP3 + 1 } 
TEMP2 = ( .TEMP2 t 8 AND #X 'FFOO' 
TEMP2 = .DATA BUFFER { .TEMP3 } = 
COUNTER = 0; 
CHECKSUM = 0; 
INCR INDEX FROM © TO PROM.SIZE - 2 00 
IF .COUNTER EQLU .TEMP3~ 
COUNTER = .COUNTER + 2 
ELSE 
BEGIN 
CHECKSUM = .CHECKSUM + ( .DATA_BUFFER [ .COUNTER ] AND #X’FF’ ); 
COUNTER = .COUNTER + 1; 

END; 

IF ( .TEMP2 EQLU ZERO ) OR ( .TEMP2 NEQU .CHECKSUM ) 
= GE! _BIT ( CSR_ALL ) 
PRINT ¢ i 
INTB ¢ MeGe?, .CHECKSUM, .TEMP2 ); 
ERODE ( 0502, MéGo0, E14 $REPORT); 
END; 
ENDTST 
-SBTTL $T5 TEST S - BOOT/DIAGNOSTIC PROM CHECKSUM TEST 
0000006 $175: JSR Ri, $SAVE3 ; 
000010 SUB #10, SP 
0000006 JSR PC RESET .DEQNA 
004000 MOV $4000, -(SP) 
0000006 JSR PC, CLR. BUFFERS on 
0000006 0000006 1$: MOV BD.PROM.DESCR(RO),DESCR.LIST(RO), #C INDEX), *CINDEX) 
000002 ADD #2,RO ; *, INDEX 
000036 44 oo : TNDEX. * 
0000006 0000046 MOV @RCV.D.LIST, @IOP. TABLE+4 ; 
0000066 CLR SIOP . TABLE +6 ; 
0000006 MOV REG. ADR, RO ; 
001410 000016 BIS #1410, 16(RO) ; 
002000 MOV #2000,R1 ; &, $$TMP2 
2$: BEQ 53 
0000006 MOV L$DLY,RO 5 &, $$TMPL 
BEQ 4$ 

000010 3$: CLR 10(SP) ; $$TMP 


.0- 
DISKe: [SCOD DA. QNA . ZQNA 


379 
JZQNA3 .BLI;2 


SEQ 117 


30 
oF 35) 


3€Q 118 
ZQNAZ CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 8B ise-16 V4,0-579 Page 31 
v01.0 TEST 5 - BOOT/DIAGNOSTIC PROM CHECKS.M TEST 27-Mar-1986 07:33:50  DISK2:{SCODA.QNA.ZQNA]ZQNA3.BLI;2 (15) 
000112 077003 SOB RO, 3$ ; $$TMP1,+* 
000114 005301 4$: DEC Ri 5 $$TMP2 
000116 000767 BR 2$ 
000120 005001 S$: CLR Ri ; INDEX 2138 
000122 013700 0000006 6$: MOV REG. ADR, RO ; 2139 
000126 016066 000016 000002 MOV 16(RO),2(SP) ; *,TMP.LOCATION 
000134 032766 000040 000002 BIT $40, 2(SP) ; *, TMP.LOCATION 
000142 001003 BNE 7$ 
000144 010137 000000G MOV Ri, TEMP1 ; INDEX, « 2142 
000150 000440 BR 9$ , 2141 
000152 020127 002000 7$: CMP R1, #2000 ; INDEX, « 2146 
000156 001031 BNE 8$ 
000160 012716 MOV #MSG59, (SP) ; 2149 
000164 012746 000001 MOV #1,-(SP) 
000170 010600 MOV SP RO ; SP, 
000172 104414 TRAP = «14 
000174 013700 0000006 MOV REG. ADR, RO 2150 
000200 016066 000016 000006 MOV 16(RO),6(SP) ; *, TMP. LOCATION 
000206 016616 000006 MOV 6(SP), (SP) ; TMP.LOCATION, « 
000212 012746 000000G MOV @MSG66, -(SP) 
000216 012746 000002 MOV $2,-(SP) 
000222 010600 | : MOV SP RO ; SP,« 
000224 104414 ! TRAP 3s «14 
000226 104455 TRAP 3=s«§S 2151 
000230 000765 .WORD 765 
000232 “WORD 
000234 _WORD ERROR$REPORT 
000236 062706 000006 ADD $6, SP ; 2148 
000242 1 8$: TNC Ri ; INDEX 2138 
000244 127 002000 CMP R1, #2000 ; INDEX, « 
000250 003724 BLE 6$ 3 
000252 004737 0000006 9$: JSR PC, VER.DESCR. STATUS 2154 
000256 013700 0000006 MOV , 2160 
142760 000010 000016 BICB  #10,16(RO) 
000270 012701 002000 MOV #2000, ; *, $$TMP2 2161 
000274 001410 10$: BEQ 13$ 
000276 013700 0000006 MOV L$OLY,RO ; *, $$TMP1 
000302 001403 BEQ i 
000010 11: CLR 10(SP) ; $$TMP 
000310 077003 SOB RO,11$ ; $$TMP1,* 
000312 005301 12%:  O€C ; $$ 
000314 000767 10$ 
000316 004737 0000006 13$: JSR PC, VER. DESCR. STATUS 2167 
000322 004737 0000006 JSR PC. RESET. DEQNA ; 2169 
0000006 CLR TEMP ; 2172 
000332 113737 000007G 0000006 MOVB §§ DATA. BUFFER+7, TEMP3 
so Gt Se me : ” 
000350 010037 MOV RO, TEMP3 
000354 000377 0000006 BIC $377, TEMPS 
362 , 2174 
153700 0000066 BISB 


DATA.BUFFER+6,RO 
RO, TEMPS 








C10 


ZQNA3 
vO1.0 


000374 
000400 


; Routine Size: 
; Maximum stack 


013701 
116137 
105037 


CZQNAEO DEQNA FUNCTIONAL TEST 
TEST 5 - BOOT/DIAGNOSTIC PROM CHECKSUM TEST 


000000G 
000001G 000000G 
000001G 
000000G 
000010 


000016 000006 


210 words, 


depth per lauoeutioka 


14$: 


17$: 


18$: 


BISB 


FEEEEEE RE REE 


E sabi gquaaane 


27-Mar-1986 07: 
27-Mar-1986 07: 
TEMP3,R1 

DATA. BUFFER+1(R1), TEMP2 
TEMP2+1 

TEMP2, RO 

#10,RO 

RO, TEMP2 

#377, TEMP 
DATA.BUFFER(R1),RO 

RO, TEMP2 

CHECKSUM 

$7777, R2 

COUNTER, RO 

RO.R1 

15 

#2, COUNTER 

16$ 


R3 
DATA.BUFFERCRO),R3 
R3, CHECKSUM 





ne Sues: eo + 3046 


ie oe 


VAX-11 Bliss-16 V4.0 
DISK2: (SCODA.QNA. ZQNA3ZQNAS. BLI;2 


*, INDEX 


INDEX, * 


*, IMP .LOCATION 
TMP .LOCATION, + 


SP ,* 


2195 
2070 





SEQ 120 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 Page 33 
vo1.0 TEST 5 - BOOT/DIAGNOSTIC PROM CHECKSUM TEST 27-Mar-1986 07:33:50 DISK2:(SCODA.QNA.ZQNA]ZQNA3. BLI;2 (15) 
.SBTTL TS TEST 5 - BOOT/DIAGNOSTIC PROM CHECKSUM TEST 
000000 004737 003046’ T5:: 
000000 1$: JSR PC,$T5 ; 2200 
000004 104466 TRAP 66 
000006 006000 ROR RO 
000010 103773 BLO i$ 
000012 000207 RTS PC 
; Routine Size: words, Routine Base: ABSCODE$ + 3712 
; Maximum stack deoth per invocation: 2 words 


s 2203 1 


cama 


a a a eh oh el el dd ld dd odode dd ee eT 


CZQNAEO DEQNA FUNCTIONAL TEST 
TEST 6 - INTERRUPT SANITY TEST 





sSBTTL ‘TEST 6 - INTERRUPT SANITY TEST’ 


TEST 6: INTERRUPT SANITY TEST 
C SCRIPTION: 


27-Mar-1986 07:36 
27-Mar-1986 07:33 


a 


SEQ 121 
VAX-11 Bliss-16 V4.0-579 Page 34 
DISK2: [SCODA.QNA.ZQNA}ZQNA3.BLI;2 (16) 


This test verifies that DEQNA interrupts the processor only at 


the expected level ( 4 ) and not any other level. 


If the operator 


specifies loop on yrs orem re-executes the code that 
! 


detected the error unti s entered. 
Hardware tested: Q-Bus to QTDC interface 
CSR ister 


S-tus Ciaecut logic 
QTDC interrupt logic 
Processing: 


BEGIN ; 
reset device 
ote for TX Done interrupt 
REPEAT for each processor priority level 
enable device interrupt (set CSR bit 6) 


cause TX orn 
check for expected CSR status 
IF error 


int error if not inhibited 
ENDIF eae 
ENDREPEAT 
END 


SEQ 122 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 Page 35 
v0O1.0 TEST 6 - INTERRUPT SANITY TEST 27-Mar-1986 07:33:50 DISK2: [SCODA.QNA.ZQNA}ZQNA3.BL1;2 (17) 


DEQNA A ); 
SETVEC ( .HWP_TABLE [ VEC }, QNA_INT, PRIO7 ); ! SET UP FOR a tx done INTERRUPT 
+ 20P TABLE [{ INT_VEC ) = .HWP_TABLE { VEC ); 
MP_TopP oP ADR .HWP_TABLE [ ADDR }; 
INCR Peron" FROM PRIOO TO PRIO7 BY #0'40' DO 
SETPRI ( .PRIORITY ); ! SET PROCESSOR PRI LEVEL 
PUT BIT ¢ CSR, IE, SET_IT ); ! ENABLE INTERRUPTS 
INTERRUPT _FLG = CLEAR_FLG; 
INTR_TEST_PACKET ( ); ! this should cause xmit intr 
DELAY ( 400 ); 
GETPRI ( TEMP1 di 
TEMP1 = .TEMP1 t( -5); 
IF .INTERRUPT_FLG EQLU WORD_LIMIT 


IF_.PRIORITY GTRU PRIO3 
THEN 


! INTERRUPT SHOULD NOT OCCUR 


SIN 
INIB ¢ tpepert ted interrst 
une inter 
( magi3. MSCOO, ELdREPORT >, -"sPort UnenPer ies 
END 
IF .INTERRUPT_FLG EQLU ZERO 
THEN 


IF .PRIORITY LEQU PRIO3 
THEN 


! INTERRUPT SHOULD OCCUR 


BEGIN 
ne tess 
? r vice ai ° 

ERRDF ( 0602, MSGOO, ERRORSREPORT 3, Soave cee 


END; 
RESET_DEQNA ( ), 
ENDSUB 
COUNTER = .COUNTER + 1; 
END; 


SETPRI ( PRIO3 ); ! SET PROCESSOR PRI LEVEL 
ENDTST; 


PA AAA BR BNA D DANA D SID DNAA AAA AAA AAANAD & BWW I Ie 


-SBTTL $T6 TEST 6 - INTERRUPT SANITY TEST 





SEQ 123 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-i6 V4.0 Page 36 
V01.0 TEST 6 - INTERRUPT SANITY TEST 27-Mar-1986 07:33:50 DISK2:(SCODA.QNA. ZQNA}ZONAS. BLI;2 (17) 
000000 004137 0000006 $16: JSR R1, $SAVE2 2202 
000004 005746 TST 
000006 737 0000006 JSR PC, RESET .DEQNA ; 2239 
000012 012746 000000G MOV #PRIO7, -(SP) ; 2240 
000016 012746 0000006 MOV . 
013700 000000G MOV 
0 000002 MOV 2(RO), -(SP) 
000032 012746 000003 MOV ,-(SP 
000036 37 TRAP 
000040 013700 0000006 MOV 2241 
000044 016077 000002 0000146 MOV SCRO in TABLE +14 
000052 017737 000000G 000000G MOV SHWP. TABLE, TMP. TOP. ADR 2242 
000060 005037 0000006 CLR COUNTER 2243 
012702 0000006 MOV #PRIOO,R2 ; *, PRIORITY 2245 
000070 000545 BR 13$ 
000072 010200 1$: MOV R2,RO ; PRIORITY, « 2247 
000074 104441 TRAP 3s «4 
000076 104402 2$: TRAP 3s 2. 
000100 013700 0000006 MOV REG. ADR, RO ; 2249 
000104 152760 000100 000016 BISB  #100,16(RO) 
000112 012701 000005 MOV #5,Ri ; *,$$TMP2 2250 
000116 001410 3$; BEQ 
000120 013700 0000006 MOV L$DLY,RO ; *,$$TMPL 
000124 001403 BEQ 
000126 005066 000010 4$: CLR 10(SP) ; $$TMP 
000132 077003 SOB RO,4$ ; $$TMP1,+« 
000134 005301 S$: DEC Ri ; $$TMP2 
000136 000767 BR 3$ 
000140 005037 0000006 6$: CLR INTERRUPT .FLG ; 2251 
000144 004737 000000G JSR PC, INTR. TEST .PACKET ; 2253 
000150 012701 000620 MOV #620,R1 ; *,$$TMP2 2254 
000154 001410 7$: BEQ 
000156 013700 0000006 MOV L$OLY,RO ; *,$$TMP1 
000162 001403 BEQ $ 
000164 005066 000010 8$: CLR 10(SP) ; $$TMP 
000170 077003 S08 RO,8$ ; $$TMP1,« 
000172 005301 9¢: DEC Ri ; $$TMP2 
000174 000767 BR 7$ 
000176 104440 10$: TRAP 40 ; 2256 
000200 072027 177773 ASH #-5,RO0 ; 2257 
010037 0000006 MOV RO TEMP 
000210 023727 000000G 177777 CMP INTERRUPT FLG,@-1 2259 
000216 001027 BNE 
7 0000006 CMP aa’ #PRIO3 ; PRIORITY, * 2261 
000224 101424 BLOS iii 
000226 012716 0000006 MOV (SP) ; 2264 
000232 012746 000001 MOV #1, eed) 
000236 010600 MOV SP; RO ; SPs 
000240 104414 TRAP 14 
000242 013716 0000006 MOV EMP1, (SP) ; 2265 
000246 012746 0000006 MOV aHsG 73 -(5P 
000252 012746 900002 MOV =(SP) 





SEQ 124 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09  VAX-11 Bliss-16 V4.0-579 Page 37 
v01.0 TEST 6 - INTERRUPT SANITY TEST 27-Mar-1986 07:33:50  DISK2:{SCODA.QNA.ZQNA}ZQNA3.BLI;2 (17) 
000260 104414 TRAP 3s «14 
000264 001131 ono 2332 ae 
000266 “WORD MSGOO 
000270 0000006 “WORD E$REPORT 
000272 062706 000006 ADD #6, SP 2263 
000276 005737 000000G 11: TST INTERRUPT .FLG ; 2269 
000302 001027 BNE 12$ 
020227 0000006 CMP R2, #PRIOZ ; PRIORITY, « 2271 
000310 101024 BHI 12$ 
000312 012716 0000006 MOV #MSG59, (SP) 2274 
000316 012746 000001 MOV #1,-(SP) 
2 01 V SP RO ; SP,« 
104414 TRAP 3s «14 
000326 013716 0000006 MOV TEMP1, (SP) ; 2275 
012746 0000006 MOV #MSG72, -(SP) 
000336 012746 000002 MOV #2,-(SP) 
000 01 V SP RO ; SP,* 
000344 104414 TRAP 3s «14 
104455 TRAP 3=s-«5S ; 2276 
000350 001132 .WORD 1132 
“WORD ERROR$REPORT 
000356 062706 000006 ADD #6, SP ; 2273 
004737 0000006 12$: JSR PC RESET .DEQNA ; 2278 
366 104467 TRAP 67 
000372 103641 BLO 2$ 
000374 005237 0000006 INC COUNTER ; 2280 
062702 000040 ADD #40 ,R2 ; *,PRIORITY 2245 
000404 020227 0000006 13$: CMP R2, #PRIO7 ; PRIORITY, # 
000410 003630 BLE 
000412 012700 0000006 MOV $PRIO3,RO ; 2283 
000416 104441 TRAP s «All 
000420 062706 000012 ADD #12,SP 2202 
000424 000207 RTS PC 


; Routine Size: 139 words, Routine Base: ABSCODE$ + 3726 
; Maximum stack depth per invocation: 13 words 








SSS snes: 


SEQ 125 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 age 38 
V01.0 TEST 6 - INTERRUPT SANITY TEST 27-Mar-1986 07:33:50 DISK2: {SCODA.QNA.ZQNA }ZQNA3. BLI;2 (17) 
.SBTTL 16 TEST 6 - INTERRUPT SANITY TEST 
000000 004737 003726' T6:: 
000000 1$: JSR PC,$T6 ; 2283 
000004 104466 TRAP 66 
000006 006000 ROR RO 
000010 103773 BLO i$ 
000012 000207 RTS PC 
; Routine Size: words, Routine Base: ABSCODE$ + 4354 
; Maximum stack det per invocation: 2 words 


; ae -a 


oot'* until Carrer Sense bit goes to 0 


read CSR 
at ernet Carrier Sense bit (bit 13) = 1 
int error message if not inhibited 
op NOIF 


SEQ 126 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 Page 39 
v0O1.0 TEST 7 - ETHERNET CARRIER SENSE TEST 27-Mar-1986 07:33:50 DISK2: [SCODA.QNA.ZQNA)ZQNA3.BLI;2 (18) 
; 2287 1 SSBTTL ‘TEST 7 - ETHERNET CARRIER SENSE TEST’ 
; 2288 1 tee 
; 2289 1 ! 
: Fst) : TEST 7: ETHERNET CARRIER SENSE TEST 
; ! 
; soos : DESCRIPTION: 
: ' 
s 2294 1 ! This test verifies that the DEQNA can transmit external loopback 
s gem 2 . pacvete and if not faulty FRU is can be found by executing this 
; Fo 3 : y implementing the instructions printed on the operator's console. 
; ! 
> 2298 1 : In order to run this test successfully the operator has to make 
; 2299 1 ! sure that DEQNA is connected to the transceiver. If the operator 
; 2300 1 ; ifies loop on error, the program re-executes the code that detected 
; cane ; tne error until tC is entered. 
; ! 
; 2303 1 : Hardware tested: Carrier Sense circuitry 
; 2304 1 ! Encode/Decode ( ED ) chip 
s 2305 1 : ; 
; 2306 1 ! Processing: 
s 2307 1 : 
; 2308 1 ! BEGIN 
s aaa i ! reset device 
s 2310 1 : select external loopback mode 
> aaa 38 ! check external hardware 
'. a 1 ! IF bad hardware 
ssia i ra t message if not inhibited 
; ! rint error if not inhibi 
[‘ oa s ! ENDIF 
; 2316 1 : read CSR : 
; ta & : IF Ethernet Carrier Sense bit ( bit 13 ) = 1 
-_ toe int message if not inhibited 
; ! int error if not inhibi 
= &ae OO t unchained loopback packet ( ETHERNET format ) 
; : ransmi i e orma 
s gaa i : read CSR while transmitti eerem ew 
; 2323 1 ! IF Ethernet Carrier Sense bit (bit 13) = 0 
; 2324 1 ! THEN 
; 2325 ; int error message if not inhibited 
3 <7 
; 1 ! 
; 1 ! 
; 1 ! 
; 1 : 
; 1 : 
; 1 : 
; 1 ! 
; 1 ’ 
; 1 !.. 





SNARE LLHMNAAAAADANNNUNNS PPA PPP PP PPPS SUUUUUSUS PUL 


CZQNAEO DEQNA FUNCTIONAL TEST 
TEST 7 - ETHERNET CARRIER SENSE TEST 


BGNTST; 
IF .SWP_ILOOP 
THEN 


T_DEQNA ( ) 
IF ( NOT GET_BIT { CSR, XC ] ) AND C .SWP_LBC EQLU ZERO ) 


BEGIN 
PRINTB ( MSG59 ); 
PRINTS ¢ HSG47 9 
ERRDF ( 0701, M$G00, E1$REPORT ); 


! RESET DEQNA AND INITIALIZE ETHERNET STATION ADDRESS RAM IF EXECUTING 
! TESTS IN EXTERNAL LOOPBACK MODE. 


RESET_DEQNA ( ) 
PREP FOR SETUP ¢ ); 
INCR 1 FROM i'TO 14 DO 


INDEX 
WRT_STATION_ADR € .INDEX1, PHA_INDEX ); 


BGNSUB ; 
a eT € N_MODE ); 
; 


ERR_FLAG = ZERO; 
INCR INDEX2 FROM 0 TO 19 DO 


SEND_TEST_PACKET ( ); 
DELAY ( 200 tchanged from 100, failed heavy 


ALL ) traffic 
IF € .CSR_WORD AND #0'100220' 5 NEQU ™0'100220' !RI.XI.XL bits in cer0 


); 
) 

MSG30, .GET_ADR [ CSR_ALL J. .CSR_WORD, s0' 100220" ); 
MSGOO, : 


BGNSUB ; : R 
na FROM O TO TIME1_LIMIT DO !if wire errors, retry 128 times 
RESET_DEQNA ( ); 


27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 





SEQ 127 
27-Mar-1986 07:33:50 DISK2:(SCODA.QNA.ZQNA)ZQNA3.BLI;2 





See 


! CHECK RECEIVE INTERRUPT REQUEST BIT ( RI - BIT T 
t ACTUALLY TRANSMITTED LOOPBACK PACKET. : a. a oo 


ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 _-VAX- — 

v01.0 TEST 7 - ETHERNET CARRIER SENSE TEST 57-Mar-1986 07:33:50 DISKO: SCOBR GHIA Sawa PNAS. et;2 | c195 
2389 7 TEMPS = . 

: 2389 7 S = .INDEX2; 

| Sees? + CHECK K_ETHERNE 

T CARRIER SENSE BIT ( CA - BIT 13 ) IN THE CSR. CA SHOULD BE 

; 5393 7 ' SET TO '1' WHILE THE DEQNA IS TRANSMITTING. IF 

; 2398 7 i THE EXPECTED TIME LIMIT, ERROR MESSAGE TS PRINTED OUT, °F) 10 ‘2’ WITHIN 

i Seer ie TEST_PA 

: Bi 269 BEX ERO 10} 

; IME1 LIMIT 00 

; 2400 7 IF GET_BIT [ CSR, CA } EGLU 

; 3401 7 THEN” 

+ 5405 6 TEMP2 = GET_BIT [ 

= GET_BIT { CSR_ALL ]; 

; 2404 8 se 

: EXITLOOP; 

; 2806 7 ELSE 

; D407? 7 IF .INDEX EQLU TIME1_LIMIT 

; 3408 7 THEN 

; 2409 8 GIN 

Be BR {TS 

; i9, GET BIT { CSR ALL 

; Said 8 ERRDF ( 0703, MSGOO SREPORT 3," 

; 2413 7 END; 

3 2414 7 

' oe 4 1 "NOW CHECK IF THE 

; IF THE CA BIT RESETS TO ‘0’ WHEN THE DEQNA COMPLETES TRANSMITTING 

; Dal? 7 ' LOOPBACK PACKET. PRINT ERROR ME 

| Be ig KET. PRINT ERROR MESSAGE IF LOOPBACK PACKET TRANSHISSION 

; 5a. 7 oan 

; INDEX FROM (TO TIMED LIMIT DO 

ote2 L IF a a { CSR, CA ] EGLU ZERO 

; Daoa 8B BEGIN 

: 2425 8 TEMPS = GETBIT ( CSR_ALL J; 

; 2427 8 

;  3aoB 7 ELSE 

; 6 2a29 7 IF .INDEX EQLU TIME2_LIMIT 

; 2430-7 THEN 

; 2431 8 

; at : PRINTB ( MSGS 

; PRINTB ( MSG20 

; | 2434 8 ERRDF (O74. nc Gby PET CSR. ont 34°" 

; 7 END; 

; 7 

; 7 

; 7 

$ 7 

3 7 

3 7 





SEQ 129 

ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 x4 | Blise-16 V4.0-579 Page 42 
v01.0 TEST 7 - ETHERNET CARRIER SENSE TEST 27-Mar-1986 07:33:50 ODA.QNA. ZQNAJZQNA3.BLI;2 (19) 
; 2442 7 DELAY ( 50 ); 
; 2443 7 
; 2444 7 IF GET_BIT { CSR, RI ] EQLU ONE 
; 2445 7 THEN 
; 2446 8 BEGIN 
; 2447 8 TEMP4 = GET_BIT [ CSR_ALL }; 
; 2448 8 EXITLOOP; 
; 2449 7 END; 
; 2450 6 ; 
; 2451 6 
; 2452 6 "F .TEMPS EQLU TIME1_LIMIT 
; 2453 6 THEN 
; 2454 7 BEGIN 
$ Suse 7 PRINTS ¢ Heber, GET BIT [ CSR ALL 1) 
; 4, ; 
; 2457 7 ERRDF ( 0705, MSGOO, ERROSEREPORT ); 
; 24 6 ENO; 
; 2459 6 
; 2460 6 
; 2461 7 IFC .XMIT_D_LIST [ ERRSU } EQLU 1 ) AND ( .XMIT_D_LIST [ ABORT ] EQLU 1 ) 
; 2462 
; 2463 7 
; 2464 7 PRINTB ( MSGS59 ); 
; 2465 7 PRINTB ( MSG7i ) 
; 3466 7 ERRDF ( 0706, MSGO0, ERROR$REPORT ); 
; 2467 6 ; 
3 6 
; 2469 6 See 
; 2470 6 ! COMPARE STATUS REGISTERS TO EXPECTED VALUES 
; | lata 
; 2472 6 
; 2473 6 fy ff 7 masks our FAIL 
; 2474 6 CHK CSR_STATUS _( CSR_STATUS '100220', 0'100220' 
; 3475 6 XMITD.CIST { STWOL } > XMET.D tert { sTupt 4 AND poiarT37h 5 
; 2476 6 CHK_XMIT STATUS ( tric. Starus: XWD11_STATUS ); ! 0'140000', 0'000000° 
; 2477 : CHK_RCV_STATUS ( RFLG STATUS, RWD1 1 ATS ); ! 0'140000'. 0'020000° 
? 
; 2479 6 IF .XMIT_D_LIST [ TOR ] EQLU ZERO 
; 2480 6 THEN 
; 2481 7 BEGIN 
; 2482 7 PRINTB ( MSGS9 ); 
; 2483 7 PRINTB ( MSG58 ); 
; 2484 7 ERRDF ( 0707, MSGO0, ERRORSREPORT ); 
; 2485 6 END; 
; 2486 6 
; 2487 4 ENDSUB ; 
; 2488 3 END; 
; 2489 1 ENDTST; 

.SBTTL $17 TEST 7 - ETHERNET CARRIER SENSE TEST 
000000 004137 0000006 $™7: JSR R1, $SAVE2 : 2285 
000004 162706 000032 SUB #32, SP 





a _DEQNA FUNCTIONAL TEST 
CARRIER SENSE TEST 


TEST 7 


000001 ©C00000G 
000000G 
000000G 


000016 
010000 


000000G 
000000G 
000001 


000000G 
000001 


000310 


1$: 


2s: 


3$: 


4$: 
5$: 


6$: 
7$: 
8$: 


BIT 


oe 


27-Mar-1986 07: 
27-Mar-1986 07: 


#1,SWP .ILOOP 


Coen cee 
Ai #16 
:° 
$200, -( SP) 

PC, XMIT. SETUP .PACKET 
(SP + 
67 
3$ 

ERR .FLAG 

#24 ,R2 

eterna PACKET 


VAX-11 Bliss-16 V4.0-579 
DISK2: [SCODA.QNA.ZQNA]ZQNA3.BLI;2 


*, TMP .LOCATION 
*, TMP .LOCATION 


*, INDEX1 
INDEX1, * 


INDEX1 


INDEX1, * 


*, INDEX2 
*, $$TMP2 
*, $$TMP1 


$$TMP 
$$TMP1,* 
$$TMP2 








43 
°F 19) 


2338 


2341 
2342 


2347 


2370 





SEQ 131 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 Page 44 
V01.0 TEST 7 - ETHERNET CARRIER SENSE TEST 27-Mar-1386 07:33:50  DISK2:{SCODA.QNA.ZQNA]ZQNA3.BLI;2 (19) 
000250 016066 000016 000002 MOV 16(RO),2(SP) ; *, TMP.LOCATION 
016637 000002 000000G MOV 2( oP), CSR. WORD ; TMP.LOCATION, « 
000264 016600 MOV ; CSR 6 2371 
000270 042700 077557 BIC $77557 RO 
000274 020027 100220 CMP RO, #-77560 
000300 001447 BEQ 10 
000302 012746 0000006 MOV #MSG59, -(SP) ; 2374 
000306 012746 000001 MOV #1, -(SP) 
000312 010600 MOV SP RO ; SP,« 
000314 104414 TRAP 3s «4 
000316 012716 0000006 MOV #MSG74, (SP) ; 2375 
000322 012746 000001 MOV $1, -(SP) 
000326 010600 MOV SP RO ; SP, 
000330 104414 | } TRAP 3-14 
332 012716 100220 : MOV #-77560, (SP) 2376 
000336 013746 000000G MOV CSR.WORD, -(SP) 
013766 0000006 MOV i4(SP) ; *,TMP.LOCATION 
000350 062766 000016 000014 ADD $16, 14(SP) ; *, TMP .LOCATION 
01 000014 MOV 14(SP), -(SP) ; TMP.LOCATION, « 
000362 012746 000000G MOV #MSG30, -(SP) 
000366 012746 000004 MOV #4, -(SP) 
010600 MOV SP.RO ; SP, 
000374 104414 TRAP 14 
000376 104455 gt TRAP 3s«85S ; 2377 
000400 001276 .WORD 1276 
000402 -WORD  MSGOO 
000404 WORD  ERROR$REPORT 
000406 104463 TRAP 63 
000410 062706 000016 #16, SP 
000414 000137 005760’ 9$: 30$ 2373 
000420 005302 10$: DEC R2 ; INDEX2 2366 
000422 001273 4$ 
000424 005037 0000006 CLR XC. FLAG ; 2382 
000430 37 0000006 CLR ERR. COUNT ; 2383 
000434 104402 ty eos 
000436 005002 CLR Re ; INDEX2 2386 
000440 0000006 12$: JSR PC RESET .DEQNA : 2388 
010237 0000006 MOV TEMPS ; INDEX2,* 2389 
000450 0000006 JSR PC, SEND. TEST. PACKET ; 2397 
000454 005001 CLR R1 ; INDEX 2399 
000456 013700 0000006 13$: MOV ADR RO ; 2400 
000462 016066 000016 000006 MOV 16(RO),6(SP) ; *,TMP.LOCATION 
000470 032766 020000 000006 BIT ,6CSP) ; *, TMP.LOCATION 
000476 001407 BEQ 
000500 000010 MOV 6(SP),10(SP) ; *, TMP.LOCATION 2403 
000506 016637 000010 000000G HOV 5,7 ; TMP.LOCATION, « aie 
a 
000516 020127 000200 14$; CMP R1, #200 ; INDEX,* 2407 
000522 001031 BNE 
000524 0127 MOV #MSG59, -(SP) ; 2410 
000530 012746 000001 MOV #1,-(SP) 
000534 010600 MOV SP ,RO ; SP,* 
000536 104414 TRAP = «14 


en 





SEQ 132 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-iu v4.0-579 Page 45 
v01.0 TEST 7 - ETHERNET CARRIER SENSE TEST 27-Mar-1986 07:33:50  DISK2:{SCODA.QNA.ZQNA)ZQNA3.BLI;2 (19) 
000540 013700 0000006 MOV REG. ADR,RO ' 2411 
000544 016066 000016 000016 MOV 16(RO), 16(SP) ; *, TMP. LOCATION 
000552 016616 000016 MOV 16(SP), (SP) ; THP.LOCATION, « 
000556 012746 000000G MOV #MSG19. -(SP) 
012746 000002 MOV #2, -(SP 
010600 MOV SP RO ; SP, 
000570 104414 TRAP = (14 
000572 104455 TRAP ss ; 2412 
000574 001277 .WORD 1277 
000576 WORD  MSGOO 
-WORD ERROR$REPORT 
000602 062706 000010 ADD #10, SP 2409 
000606 005201 15$: INC Ri ; INDEX 2399 
000610 020127 000200 CMP R1, #200 ; INDEX, « 
000614 003720 BLE 13$ 
000616 005001 16$: CLR Ri ; INDEX 2421 
000620 013700 0000006 17$: MOV REG. ADR, RO ; 2422 
000624 016066 000016 000014 MOV 16(RO),14(SP) ; *,TMP..LOCATION 
000632 032766 020000 000014 BIT #20000, 14(SP) ; *, TMP .LOCATION 
000640 001007 BNE 
000642 016666 000014 000016 MOV 14(SP),16(SP) ; *, TMP.LOCATION 2425 
000650 016637 000016 000000G MOV 16(SP), TEMP3 ; THP.LOCATION, « 
000656 BR $ ; 2424 
020127 002000 18$: CMP R1, #2000 ; INDEX, « 2429 
000664 001031 BNE ; 
0127 MOV $MSG59, -(SP) ; 2432 
000672 012746 000001 MOV ,-(SP 
000676 O1 MOV SP .RO ; SP,« 
000700 104414 TRAP = ‘14 
000702 013700 0000006 MOV REG. ADR, RO ; 2433 
000706 016066 000016 000024 MOV 16(RO).24¢SP) ; *, TMP.LOCATION 
000714 016616 000024 MOV 24(SP), (SP) ; THP.LOCATION, « 
720 746 MOV -(SP) 
000724 012746 000002 MOV #2,-(SP) 
730 010600 MOV SP. RO ; SP,« 
000732 104414 TRAP ss «14 
000734 104455 TRAP «555 ; 2434 
000736 001300 .WORD 1300 
000740 “WORD  MSGOO 
000742 .WORD ERRORSREPORT 
000744 062706 000010 ADD #10, SP ; 2431 
000750 005201 19$: INC Ri ; INDEX 2421 
000752 020127 002000 CMP R1, #2000 ; INDEX, « 
000756 003720 BLE 17$ 
000760 012701 000062 20$: MOV $62,R1 ; &, $$TMP2 2442 
000764 001410 21$:  BEQ 24$ 
000766 013700 0000006 MOV L$DLY,RO > *,$$TMPL 
000772 001403 BEQ 34 
000774 005066 000030 22: CLR 30( SP) ; $$TMP 
001000 077003 SOB RO, 228 ; $$TMP1,« 
001002 005301 234: DEC Ri ; $$TMP2 
001004 000767 BR 21$ 
001006 013700 000000G 24$: MOV REG. ADR ,RO : 2444 








O DEQNA FUNCTIONAL TEST 


CZQNAE 
TEST 7 - ETHERNET CARRIER SENSE TEST 


000016 000022 
000022 000024 
000024 000000G 


25%: 


000000G 
000016 000032 


000010 


040000 0000106 27$: 


001000 0000106 
000000G 
000001 


000000G 
000001 


000006 
100220 28$: 


FEEEE PERE oh 


BEESEES 


wo 
par 
oOo 


MOV 
CLR 
JSR 
MOV 
MOV 


27-Mar-1986 0 


7: 
27-Mar-1986 07: 


16(RO),22(SP) 
25$ 


22(SP),24(SP) 
1 lla 


R2 
R2, #200 
26% 


ERROR $REPORT 
#10, SP 
Sag ene! -O.LIST $40 


#1000, XMIT.D.LIST+10 
28$ 





VAX-11 Bliss-16 V4.0-579 


en 


*, TMP .LOCATION 
TMP .LOCATION, « 


INDEX2 
INDEX , + 


SP , + 


*, TMP .LOCATION 
TMP .LOCATION, «* 


SP ,* 


SEQ 133 
DISK2:(SCODA.QNA.ZQNA)ZQNA3.BLI;2 
*, TMP .LOCATION 


46 
(19) 


2447 


2446 
2386 


2452 
2455 


2456 


2457 


2454 
2461 


2464 


2465 


2475 
2476 


2477 


ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 
v0O1.0 TEST 7 - ETHERNET CARRIER SENSE TEST 
001274 004737 0000006 JSR 
001300 032737 037777 000012G BIT 
001306 00102 BNE 29 
001310 012716 0000006 MOV #MSG59, (SP) 
001314 012746 000001 MOV #1,-(SP) 

1320 01 MOV SP RO 
001322 10441 TRAP =: 14 

324 012716 0000006 MOV #MSG58, (SP) 

001330 012746 000001 MOV #1,-(SP) 
001334 010600 MOV SP ,RO 
001336 104414 TRAP 14 
001340 104455 TRAP 3 =«-s«&5S 
001342 001303 .WORD 1303 
001344 0000006 “WORD 
001346 0000006 “WORD $ 
001350 022626 CMP (SP)+,(SP)+ 
001352 062706 000010 29$: ADD #10, SP 
001356 104467 TRAP 67 

1360 006000 ROR RO 
001362 103002 BHIS 30$ 
001364 000137 005024: JMP ii$ 
001370 062706 000032 30$: ADD #32,SP 
001374 RTS 
; Routine Size: 3 words, Routine Base: ABSCODE$ + 4370 
; Maximum stack aon. per invocation: 25 words 

.SBTT 

000000 004737 004370' T?:: 
000000 1s: JSR PC, $17 
000004 104466 TRAP 66 
000006 006000 ROR RO 
000010 103773 BLO i$ 
000012 000207 RTS PC 
; Routine Size: 6 words, Routine Base: ABSCODES + 5766 
; Maximum stack depth per invocation: 2 words 


2490 1 
2491 1 


PC, CHK.RCV.STATUS 
#37777. XMIT .D.LIST+12 


T7 TEST 7 - ETHERNET CARRIER SENSE TEST 


27-Mar-1986 07: 
27-Mar-1986 07: 


VAX-11 Bliss-16 V4.0-579 


134 
DISK2: (SCODA.QNA.ZQNA)ZQNA3.BLI;2 





47 
mF 19) 


2479 
2482 


2483 


2488 





1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 





SEQ 135 


79 Page 48 
ZQNAS.BLI;2 00 (20) 


CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-5 
TEST 8 - STATION ADDRESS RAM TEST 27-Mar-1986 07:33:50 DISK2: [SCODA.QNA. ZQNA } 


SSBTTL ‘TEST 8 - STATION ADDRESS RAM TEST’ 


TEST 8: STATION ADDRESS RAM TEST 


DESCRIPTION: 


This test verifies that Station Address RAM has no static faults. 
The host writes and then reads data patterns to all of the 
addressable RAM ( 128 decimal bytes ). The data is checked to see 
that the data pattern received is the same as the data pattern 
transmited. This test continues until all the data patterns are 
exhausted. If the operator specifies loop on error, the program 
re-executes the code that detected the error until tC is entered. 


The following BINARY patterns are used: 


11111111 00000000 
erates oationrt 


Address RAM 
Q-Bus to QTOC interface 
CSR register - Receiver Enable (bit 0) 
. Portion of Receive and Transmit FIFO 
Processing: 


BEGIN ; 

reset device 

select Setup mode 

REPEAT for each pattern _ 
load transmit packet with date pattern 
transmit = packet (fill all of the RAM) 
receive packe 
check for expected loopback status 
IF error 
or t message if not inhibited 

rint error if not inhibi 

ENDIF 


call compere_packets 
“en 


: 
’ 
g 
$ 
' 
' 
: 
: 
! 
8 
! 
! 
: 
’ 
g 
: 
! 
g 
: 
! 
8 
: 
Hardware tested: Station 
; 
' 
! 
' 
8 
§ 
8 
8 
g 
! 
! 
! 
é 
' 
' 
' 
! 
' 
’ 
§-. 





PARADE SRE RAA SSS SWANN NUN WN UIA AUN OOD BS PU UI 


004 
00473 


CZQNAEO DEQNA FUNCTIONAL TEST 
TEST 8 - STATION ADDRESS RAM TEST 


BGNTST ; 
RESET_DEQNA ( ); 
DECR INDEX1 FROM 7 TO 0 DO 
BEGIN 


INCR INDEX2 FROM 0 TO 127 DO 


XMIT_BUFFER [ .INDEX2 ] = .PTRN_TABLE [ .INDEX1 J; 


BGNSUB ; 
XMIT_SETUP_PACKET ( N_MODE ); 
ENDSUB ; 

: 


TEMP3 = ( N.MODE « 
INCR INDEX1-FROM 0 0°. TEES DO 


Pi = ZERO 

WALKING BIT Ds 

XHIT_SETUP PACKET ( ): 

INCR INDEX FROM 0 TO .P3 
XMIT_BUFFER [ INDEX J = C - 


P1 = N7MODE 
xeIT _SETUP_PACKET ( ); 


INCR INDEX1 FROM 0 TO N_MODE - i DO 
BEGIN 


INCR INDEX FROM 0 TO N -MODE - TERS DO 
XMIT_BUFFER [ . INDEX” P nF 
-INDEX1 ] = SX‘FF'; 


XMIT_BUFFER [ 

BGNSUB ; 

XMIT_SETUP_PACKET ( N_MODE ); 
ENDSUB ; 

INCR INDEX FROM O TO .P3 DO 
XMIT_BUFFER [ .INDEX ] = ( - 


BGNSUB 
XMIT_SETUP_PACKET ( N_MODE ); 
ENDSUB; 


$T8: 


PC; RESET. DEQNA 





27-Mar-1986 07:36:09 
27-Mar-1986 07:33:50 


-SBTTL $18 TEST 8 - STATION ADDRESS RAM TEST 
JSR 1,$ 3 





VAX-11 Bliss-16 V4.0-579 
DISK2: [SCODA.QNA.ZQNAJZQNA3.BLI;2 


P 49 
oe 21) 


-XMIT_BUFFER [ .INDEX ] ) - 1; 


-XMIT_BUFFER [ .INDEX ] ) - 1; 


2540 


; Routine Size: 


; Maximum stack depth per invocation: 


012701 
005000 
116160 


000007 


0CO0000G 000000G 


000177 


000200 
000000G 


177777 


000200 
000000G 


000177 


73 words, 


CZQNAEO DEQNA FUNCTIONAL TEST 
TEST 8 - STATION ADDRESS RAM TEST 


1$: 
2$: 


3$: 


6$: 


7$: 


8$: 
9$: 


BLE 
RTS 


27-Mar-1986 07:36: 
27-Mar-1986 07:33: 


#7,R1 
R 


PTRN. TABLECR1), XMIT.BUFFER(RO) 


RO, #177 
2$ 


#200, -(SP) 
PC, XMIT. SETUP .PACKET 
SP )+ 


XMIT .BUFFER(RO) 

RO, #177 

9577, XMIT .BUFFER(R1) 
#200, -(SP) 

PC, XMIT . SETUP. PACKET 
(SP)+ 

67 

RO 

6$ 

RO 

8$ 

#-1,R2 

XMIT .BUFFERCRO),R3 
RO, XMIT . BUFFER(RO) 


RO,PS 
7$ 


2 
#200, -(SP) 

PC T. SETUP .PACKET 
(SP)+ 

67 

RO 

9$ 

Ri 

R1,#177 

4 

PC 


Routine Base: ABSCODE$ + 6002 
6 words 





VAX-11 Bliss-16 V4.0-579 
DISK2: [SCODA.QNA.ZQNA)ZQNA3.BLI;2 


’ ieee 

; 

; *CINDEX1),*(C INDEX2) 
; INDEX2 

; INDEX2,* 


; INDEX1 

; INDEX1 

; INDEX 

; *C INDEX) 

; INDEX 

; INDEX,* 

; *,*CINDEX1) 


a 


; INDEX1 
; INDEX1,* 





a 


SEQ 138 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 Page 51 
V0O1.0 TEST 8 - STATION ADDRESS RAM TEST 27-Mar-1986 07:33:50 DISK2: [SCODA.QNA. ZQNA }ZQNA3.BLI;2 (21) 
.SBTTL T8 TEST 8 - STATION ADDRESS RAM TEST 
000000 004737 006002’ T8:: 
000000 1$: JSR PC,$T8 ; 2584 
000004 104466 TRAP 66 
000006 006000 ROR RO 
000010 103773 BLO 1$ 
000012 000207 RTS PC 
; Routine Size: words, Routine Base: ABSCODE$ + 6224 
; Maximum stack deoth per invocation: 2 words 


; 2586 1 


; 
‘ 
: 
; 
; 
i 
: 
> 
> 
; 
: 
‘ 
‘ 
; 
; 
; 
: 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
é 
4 
s 
: 
‘ 
; 
: 
3 
‘ 
. 
: 
4 
; 
; 
; 
; 
5 
5 


Pa ra a re ee ea bee he be bn bee bon bee be be be be tn tn fn fe fh fa a pd pn hn ae hh ff Fa fe od dn fn ad sd ed fn pn 





SEQ 139 
CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 TRE Bs 4 VAX-11 Bliss-16 V4.0-579 Page 52 


TEST 9 - PROMISCUOUS STATION ADDRESS TEST 27-Mar-1986 07:33:50 DISK2; [SCODA.QNA.ZQNA)ZQNA3.BLI;2 (22) 


SSBTTL ‘TEST 9 - PROMISCUOUS STATION ADDRESS TEST’ 


TEST 9: PROMISCUOUS STATION ADDRESS TEST 

DESCRIPTION: 
This test verifies that DEQNA promiscuous addressing mode functions 
as specified. Bit patterns and addresses in and out of the range of 
ce A are used to assure that there is true promiscuity. 
If operator specifies loop on error, the program re-executes the 
code that detected the error until fC is entered. 
Hardware tested: Promiscuous addressing mode logic 


Set of Target Addresses in HEXADECIMAL: 


AA 
95-55-55-55-55-55 


! FF-FF-FF-FF -FF-FF 
' Walking 1, shifting 1 across the Target Station Address 
Walking 0, shifting 0 across the Target Station Address 
Processing: 
! BEGIN 
: Seta TeiSteat teebeck mod 
select interna 
: set mode to Setup 
: se i ‘ addressing mode bit 
: REPEAT for each Target 
: load Target Address of the packet 
! disable receiver 
! transmit loopback packet 
: enable receiver 
: check for expected loopback status 
: IF error 
eer t if not inhibited 
rint error message if not inhibi 
ENOTF packet 
c re_ ets 
: ewerento™ 
! END 
O wm 





SEQ 140 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09  VAX-11 Bliss-16 V4.0-579 Page 53 
V01.0 TEST 9 - PROMISCUOUS STATION ADDRESS TEST 27-Mar-1986 07:33:50  DISK2:{SCODA.QNA.ZQNA]ZQNA3.BLI;2 (23) 
: 2632 3 BGNTST; 
oS oer 
3 ++ 
; 2635 3 ! RESET DEQNA AND INITIALIZE ETHERNET STATION ADDRESS RAM IF EXECUTING 
; 2636 3 ' _TESTS IN EXTERNAL LOOPBACK MODE. 
$ 2637 3 - 
; 26 3 
; 2639 3 RESET_DEQNA ( ); 
; 2640 3 PREP FOR SETUP ¢ ); 
; 2641 3 INCR™ 1 FROM 1 TO 14 DO 
; 2642 3 WRT_STATION_ADR ( .INDEX1, PHA_INDEX ); 
1 
; 2644 5 BGNSUB ; 
; 2645 5 XMIT_SETUP_PACKET ( P_MODE ); 
; 2646 3 ENDSUB; 
i oeae fs 
: 2649 3 : NOW LOOPBACK 6 BYTE PACKETS AND CHECK IF THEY ARE RECEIVED PROPERLY 
; i=. 
3 2651 3 
; 2652 3 RBUF_LENGTH = 
; se53 3 XBUF-LENGTH = °° .RBUF_LENGTH ¢ -1 ); 
; 
; 2655 3 INCR INDEX1 FROM 0 TO 99 DO 
; 2656 4 BEGIN 
; 2657 4 SELECTONE .INDEXi1 OF 
; 2658 4 
; 2659 4 { 0703 }: 
; 2660 4 WRT_STATION_ADR ( ZERO, .INDEX1 ); 
; 2661 4 { 417051): 
; 2662 4 WALKING_BIT ( ZERO, .INDEX1 - 4, 5 ); 
; 2663 4 { 52 TO 99 }: 
; 2664 4 WALKING_BIT ( ONE, .INDEX1 - 52, 5 ); 
5 2665 4 TES; 
; 2666 4 
; 2667 4 WRT_STATION_ADR (€ ZERO, ZERO ); 
; 2668 4 
: 2669 6 BGNSUB ; 
; 2670 6 XMIT_ILOOP_PACKET ( ZERO ); 
; 2671 4 ENDSUB; 
+ ers 3 END; 
; 
; 2674 3 
; 2675 3 INCR INDEX FROM 9 2, 5 Do 
; 2676 3 TARGET_ADR [ .INDEX } = ZERO; 
; 2677 1 ENDTST; 
.SBTTL $T9 TEST 9 - PROMISCUOUS STATION ADDRESS TEST 
Sones Sats? 9000006 7“ Bart eee Ses 
° e : 
000006 004737 000000G JSR PC, PREP .FOR. SETUP ; 2640 
000012 012701 000001 MOV #1,R1 ; *, INDEX1 2641 





SEQ 141 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 Page 54 
V01.0 TEST 9 - PROMISCUOUS STATION ADDRESS TEST 27-Mar-1986 07:33:50  DISK2:(SCODA.QNA.ZQNA}ZQNA3.BLI;2 (23) 
000016 010146 1$: MOV (SP) ; INDEX1,+ 2642 
000020 012746 000023 MOV aa$,° SP) 
000024 004737 000000G JSR Pe tat S ATION. ADR 
000030 022626 CMP (SP)+, 
000032 005201 INC Ri ; INDEX1 2641 
000034 020127 000016 CMP R1, #16 ; INDEX1,« 
000040 003766 BLE $ 
000042 104402 2¢: TRAP 3 sD ; 2642 
000044 012746 000202 MOV #202, -(SP) ; 2645 
000050 004737 000000G JSR PC, XMIT. SETUP. PACKET 
000054 005726 TST cs )+ ; 
000056 104467 TRAP , 2645 
000060 006000 ROR 
000062 103767 BLO 2$ 
000064 012737 000006 0000006 MOV #6, RBUF .LENGTH ; 2652 
000072 012700 000006 MOV #6, RO ; 2653 
000076 ASR RO 
000100 NEG RO 
000102 010037 0000006 MOV RO, XBUF . LENGTH 
000106 005001 CLR 1 ; INDEX1 2655 
€00110 005701 3$: TST Ri ; INDEX1 2659 
000112 002411 BLT 4$ 
000114 020127 000003 CMP R1,03 ; INDEX1,+ 
000120 00 BGT 4$ 
000122 CLR -(SP) ; 2660 
000124 010146 MOV ae ; INDEXi,« 
000126 0000006 JSR PC WRT. STATION. ADR 
000132 CMP ( *, )+ 
000134 000434 BR 7$ ; 2657 
000136 020127 000004 43: CMP R1, 04 ; INDEXi,+ 2661 
000142 002410 BLT S$ 
000144 020127 000063 CMP R1, #63 ; INDEX1,< 
000150 003005 BGT 54 
000152 CLR -(SP) ; 2662 
000154 010146 MOV R1i,-CSP) ; INDEX1,* 
000156 162716 000004 SUB #4, (SP) 
000162 000413 BR 6$ 
000164 020127 000064 S$: CMP R1, 064 ; INDEXi,+ 2663 
000170 002416 BLT 
000172 020127 000143 CMP R1, 8143 ; INDEXi,« 
000176 003013 BGT 7$ 
000200 012746 000001 MOV #1,-(SP) ; 2664 
000204 010146 MOV Ri, -(SP ; INDEXi,+ 
000206 162716 000064 SUB #64, (SP 
000212 012746 000005 6$: MOV 05,-(SP 
000216 904757 0000006 JSR BC. WALKING BIT 
000226 005046 7$: CLR (3?) ; 2667 
000230 005046 CLR -(SP 
000232 004757 0000006 es JSR BC. WRT . STATION. ADR 
000240 005016 CLR sp : 2670 


(SP) 
000242 004737 000000G JSR PC, XMI 


T.ILOOP . PACKET 





SEQ 142 

ZQNA3 a DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 Page 55 
v01.0 TEST 9 - PROMISCUOUS STATION ADDRESS TEST 27-Mar-1986 07:33:50 DISKe2:[ ODA. QNA . ZQNA }ZQNA3. BLI;2 (23) 
000246 104467 TRAP 67 
000250 006000 ROR RO 
900252 103771 BLO 8$ 
000254 022626 CMP (SP)+,(SP)-+ ‘ 2656 
000256 005201 INC Ri ; INDEX1 2655 
000260 020127 000143 CMP R1, #143 ; INDEX1,+¢ 
000264 003711 BLE 3$ 
000266 CLR RO ; INDEX 2675 
000270 105060 000000G 9$: CLRB TARGET . ADRCRO) ; *C INDEX) 2676 
000274 005200 INC RO ; INDEX 2675 
000276 020027 000005 CMP RO, #5 ; INDEX,* 
000302 003772 BLE 9 
000304 012601 MOV par 2° oR ; 2585 
000306 000207 RTS PC 
; Routine Size: 100 words, Routine Base: ABSCODE$ + 6240 
; Maximum stack depth per invocation: 5 words 

.SBTTL T9 TEST 9 - PROMISCUOUS STATION ADDRESS TEST 
000000 004737 006240’ 2: 
000000 1$: JSR PC,$T9 ; 2676 
000004 104466 TRAP 66 
000006 006000 ROR RO 
000010 103773 BLO i$ 
000012 000207 RTS PC 
; Routine Size: words, Routine Base: ABSCODE$ + 6550 
; Maximum stack dott per invocation: 2 words 


; 2678 1 


Siccienied 


SEQ 143 


ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 Page 56 
v0O1.0 TEST 10 - TRANSMIT AND RECEIVE FIFO MEMORY TEST 27-Mar-1986 07:33:50 DISK2: [ SCODA.QNA.ZQNA)ZQNA3.6LI;2 (24) 
; 2679 : sSBTTL ‘TEST 10 - TRANSMIT AND RECEIVE FIFO MEMORY TEST’ 
F} 2680 ioe 
2681 1 : 
: 2682 1 | TEST 10: TRANSMIT AND RECEIVE FIFO MEMORY TEST 
; 2684 i DESCRIPTION: 
2686 1 ' This test verifies that link memory (receive FIFO and transmit 
; 2687 1 ! buffer) has no static faults. The t writes and then reads 
; 2688 1 : @ sequence of data patterns to the link memory. The data is then 
; 2689 1 ' checked to see that the data pattern received is the same as the 
; 2690 1 ! data pattern transmitted. This test continues until all the data 
; 2691 1 : patterns are exhausted. If the operator specifies loop on error, the 
; 2692 1 : program re-executes the code that detected the error until fC is 
; os ; entered. 
; 2695 1 Hardware tested: Transmit buffer address logic 
; 2696 1 : Transmit buffer memory ( first 1512 bytes ) 
; 2697 1 : Receive FIFO address logic 
; one : Receive FIFO memory ( first 1512 bytes ) 
2700 1 The following BINARY patterns are used: 
; ! 
5 oa i : 11111111 00000000 
' ae a ! 10101010 01010101 
; 2704 il ! 11001100 00110011 
5 ane i ! 11110000 00001111 
; 2706 1 : 
s agrar 3 : Processing: 
; 2708 i : 
; 2709 1 ! BEGIN 
> aa i ! reset device 
s geass & ! select internal/extended loopback mode 
2 oe iarien Tie waht SI) earn - rere lesehnce. sce 
; : wri i ves rn - transmi a 
; 2714 1 : read link porno Belg yt pattern - receive loopback packet 
s @eae & ! check for expec loopback status 
; sis : IF error 
; : 
; 2718 1 ! rint error if not inhibited 
1 gust OF oi aida 
; ! c re_ ets 
| aaa 6 ! ENDREPEAT 
; 2722 1 ! END 
; tee & !.. 





INCR INDEX1 FROM 0 TO LONGEST_PACKET - 1 DO 
BEGIN 


INR INDEX FROM 0 TO LONGEST PACKET - 1 00 
@anEL BUFFER [INDEX ] = ZERO 
T_BUFFER [ .INDEX1 } = =x'FE’; 


BGNSUB 

SET_RDESCR_LIST ( .XBUF_LENGTH, VE ); 
SET-XDESCR-LIST ( “XBUF7LENGTH, VE ) 
SEND. ELOOP PACKET ¢ ZERO ); 


INCR INDEX FROM 0 TO .P3 DO 
XMIT_BUFFER [ .INDEX ] = ( - .XMIT_BUFFER [ .INDEX } ) - 1; 


SEQ 144 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 P 7 
v01.0 TEST 10 - TRANSMIT AND RECEIVE FIFO MEMORY TEST 27- _ 1986 07:33:50 DISK2: [SCODA.QNA. ZQNA }ZQNA3.BLI;2 oot 85 
; ass BGNTST; 
( es 
3 ~*¢ 
: FAC : LOOPBACK 1514 BYTE PACKETS AND CHECK IF THEY ARE RECEIVED PROPERLY 
; aaa 
; e729 3 
; 2730 3 RBUF_LENGTH = LONGEST PACKET 
: 273 $ © NBUFLLENGTH = - "RBUF_LENGTH ¢ -1 ); 
$ 
; 2733 3 INCR INDEX FROM 0 TO 7 DO 
; 2734 4 
; 2735 4 RESET rE*s C ); 
; 2736 4 TEMP1 = 
; 2737 4 INCR INDEX FROM O TO 189 DO 
; oi : INCR INDEX2 FROM O TO 7 DO 
; 
; 2740 5 XMIT_BUFFER [ .TEMP1 ] = .PTRN_TABLE [ .INDEX2 ]; 
; 2741 5 TEMPi = .TEMP1 + 1; 
; ef 4 END; 
; 2743 4 
s ef 4 tes 
; 2745 4 ! ROTATE PATTERN TABLE 
; 274 4 !-. 
; 2747 4 
; 2748 4 TEMP2 = .PTRN_TABLE [ 0 ]}; 
; 2749 4 INCR INDEXS FROM 0 TO 6 00 
; 2750 4 PTRN_TABLE [ . INDEXS ] = .PTRN_TABLE [ .INDEX3 + 1 ); 
s gra 4 PTRN_TABLE [ 7 ] = .TEMP2; 
; 2752 4 
; 2753 6 
; 2754 6 SET_RDESCR_LIST ( _LENGTH, VE ); 
; 2755 6 SET_XDESCR_LIST ( .XBUF_LENGTH, VE ); 
; e756 6 SEND_ELOOP ( ); 
; 2757 6 COMPARE_PACKETS ( ); 
; 2736 4 ENDSUB ; 
; 2759 4 
; 2760 3 END; 
; 3 
; 3 
; 3 
; 3 
; 3 
; 3 
: 3 
; 3 
; 3 
; 3 
; 3 
; 3 
; 3 
; 3 
; 3 
: 3 





CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar - 
TEST 10 - TRANSMIT AND RECEIVE FIFO MEMORY TEST 27-Mar-1986 


ON NON OI ON AI 


$T10: 


WN 
nw 


4$: 


5$: 


(em $10 TEST 10 - TRANSMIT AND RECEIVE FIFO MEMORY TEST 
#2752. RBUF . LENGTH 


MOV 
MOV 
ASR 
NEG 
MOV 
MOV 
SR 
R 
MOV 
CLR 


£26. 


Fs) 
> 


ROR 


Soe tyssnaassrguacsegrguyas 





SBE TENT: VE 3 
C ZERO ) 


#276,R2 
RO 


TEMP1,R1 
PTRN. TABLE(RO), XMIT.BUFFER(R1) 
TEMP 


BAIN. TABLE (RO), PTRN. TABLECRO) 
RO, #6 
TEMP2 ,PTRN. TABLE+7 





-57 
A.QNA.ZQNA)ZQNA3.BLI;2 


Die 





SEQ 146 


ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 Page 59 
V01.0 TEST 10 - TRANSMIT AND RECEIVE FIFO MEMORY TEST 27-Mar-1986 07:33:50 DISK2:{SCODA.QNA.ZQNA }ZQNA3. BLI;2 (25) 
000214 103751 BLO 5$ 
000216 077373 SOB R3,1$ ; INDEX,«# 2733 
000220 000207 RTS PC ‘ 2677 
; Routine Size: 73 words, Routine Base: ABSCODE$ + 6564 
; Maximum stack depth per invocation: 8 words 

.SBTTL T10 TEST 10 - TRANSMIT AND RECEIVE FIFO MEMORY TEST 
000000 004737 006564’ T10:: 
000000 1$: JSR PC,$T10 ; 2760 
000004 104466 TRAP 66 
000006 006000 ROR RO 
000010 103773 BLO 1$ 
000012 000207 RTS PC 
; Routine Size: words, Routine Base: ABSCODE$ + 7006 
; Maximum stack dott per invocation: 2 words 


; 2788 1 


im) 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 





CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 —VAX- j in. a 
TEST 11 - PACKET LENGTH TEST 27-Mar-1986 07:33:50  DISK2:{SCODA.QNA ZQNAIZONA3.BLI;2 °° 38 


sSBTTL ‘TEST 11 - PACKET LENGTH TEST’ 


TEST 11: PACKET LENGTH TEST 


DESCRIPTION: 


This test td that DEQNA can transmit and receive variable 
length packets ( ange to or toot greeter ¢ ee 60 Bodh 4 pe and eaual to or 
less than 1514 bytes thout losing any deta 

in the process. his test ~y § a. that the 9th pe of the 
hand ng Me not ang ign at 1/stuck - oe epereter 

specifi on error _program re- 

detected the error unt il tC is entered. —— —_ 


Hardware tested: Transmit and Receive RAM 
Processing: 


q 
' 

‘ 

' 

’ 

4 

t 

' 

1 

' 

' 

' 

' 

‘ 

4 

G 

? 

; BEGIN 

; reset device 

. select internal/extended 1 

set down_count to max. Peet I l 

REPEAT until down_count = min. packet Length 
transmit loopback pemes. ( et l down _count ) 
check for expected 1 status and packet Iength 
error 

' 

« 

t 

4 

i 

' 

] 

' 

' 

+ 

g 

q 

‘ 

t 

a 


print error message if not inhibited 
transmit 1 “packet ¢ t length t) 
é _coun 
check for expected 1] status aa pacieak t length 
IF error 
THEN 
ee error message if not inhibited 





SEQ 148 

ZQNA CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09  VAX-11 Bliss-16 V4.0-579 
V01.0 TEST 11 - PACKET LENGTH TEST 27-Mar-1986 07:33:50  DISK2:(SCODA.QNA.ZQNA}ZQNA3.BLI;2 
; 2833 3 BGNTST; 
oo 
3 ee 
; 2836 3 ! LOOPBACK PACKETS OF INCREASING AND DECREASING LENGTH THEN CHECK IF PROPERLY 
; 2837 3 ' RECEIVED 
; 2838 3 $.. 
: 2839 3 
; 2840 3 COUNTER - ZERO: 
; 2841 3 UP_COUNTER = SHORTEST PACKET; 
; cote : DOWN_COUNTER = LONGEST_PACKET; 
; 
; 2844 3 INCR INDEX1 FROM SHORTEST_PACKET TO MAX_LENGTH BY STEP1 DO 
: 
; 2846 4 RESET_DEQNA ( ); 
; 2847 4 .COUNTER EQLU ZERO 
; 2848 4 THEN 
; 2849 5 BEGIN 
; 2850 5 RBUF_LENGTH = .UP_COUNTER 
; 2851 5 “LENGTH = - (~.RBUF_LENGTH t -1 ); 
; 2852 5§ INDEX FROM 0 TO .UP_COUNTER - 1 DO 
; 2853 5 XMIT_BUFFER [ . INDEX ]”= #B'01010101' i 
; 2854 5 INDEX FROM .UP_COUNTER TO MAX_LENGTH - 1 DO 
; 2855 5 ATT BUEFER (-INDEX ] = ZERQs . 
; 2856 5 UP_COUNTER = .UP_COUNTER + STEPi; 
; 2857 5 COUNTER = ONE; 
; 2858 5 END 
; 2859 4 ELSE 
; 2860 5 BEGIN 
; 2861 5 RBUF_LENGTH = .DOWN COUNTER 
; 2862 5 XBUF_LENGTH = - ( .RBUF TH t -1 ); 
; 2863 5 INDEX FROM 0 TO .DOWN COUNTER - 1 DO 
: 2864 5 XMIT_BUFFER [ .INDEX ] = #8’ 101010 OR 
; 2865 5 INCR INDEX FROM .DOWN COUNTER TO MAX_LENGTH - 1 DO 
; 2866 5 XMIT_BUFFER [ .INDEX } = 
; «BBE? 5 COUNTER = .DOWN COUNTER - STEP1; 
; 2868 5 COUNTER = ZERO: 
; 2869 4 END; 
; 2870 4 
; 2871 6 BGNSUB 
; gm «6 SET_RDESCR_LIST ( .XBUF_LENGTH, VE ds 
; 2873 6 SET_XDESCR_LIST ( .XBUF LENGTH. VE ): 
; 2874 6 SEND_ELOOP_PACKET ( ZERO ); 
; 2875 6 COMPARE_PACKETS ( ); 
; 2876 4 SUB ; 
3 2877 4 
; 2878 3 END 
; 2879 1 ENDTST: 

.SBTTL $T11 TEST 11 - PACKET LENGTH TEST 
000000 004137 0000006 $T11: JSR Ri, $SAVE2 ; 
000004 37 000000G CLR COUNTER ; 
000010 012737 000074 0000006 MOV $74, UP .COUNTER : 
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(27) 


2787 
2840 
2841 


012737 


002752 000000G 


000074 


002775 


000002 0000006 


CZQNAEO DEQNA FUNCTIONAL TEST 
TEST 11 - PACKET LENGTH TEST 


Rgaeerques 


rE 


MOV 
MOV 
JSR 
MOV 
MOV 
JSR 
CLR 
JSR 
JSR 
ADD 


27-Mar-1986 07: 
27-Mar-1986 07: 


#2752 , DOWN. COUNTER 
074 

PC RESET .DEGNA 

a 

UP. COUNTER, RO 

RO. RBUF .LENGTH 

: 

#125, XMIT. BUFFER(R1) 
R1,RO 

2¢ 

RO 

S$ 

XMIT .BUFFER(RO) 

RO, #2775 


#2,UP.COUNTER 
#1 ,CourreP 


DOWN. COUNTER, RO 
RO, RBUF .LENGTH 

a 

#252, XMIT .BUFFER(R1) 
R1,RO 

7$ 


10$ 
XMIT . BUFFERCRO) 
RO, #2775 


RO 
RO, XBUF .LENGTH 


VAX-11 Bliss-16 V4.0-57 
DISK2; [SCODA.QNA, ZQNA}ZONAS, BLI;2 


‘ 
; 
‘ 
; 
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(27) 
2842 





ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 
v01.0 TEST 11 - PACKET LENGTH TEST 
000276 104467 
300 
000302 103751 
000304 062702 000002 
000310 020227 002776 
000314 003645 
000316 
; Routine Size: words Rout ine Ent 


; Maximum stack dooth per invocation: 


000000 004737 007022’ T1li:: 
000000 i$: 
000004 104466 

000006 006000 

000010 103773 

000012 000207 

; Routine Size: 6 words, Routine Base: 


; Maximum stack depth per invocation: 2 words 


; 2880 1 


SEQ 150 
27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 Page 63 
27-Mar-1986 07:33:50  DISK2:(SCODA.QNA.ZQNA)ZQNA3.BL1;2 (27) 
TRAP = 67 2875 
ROR RO 
BLO 12$ 
ADD #2 ,R2 ; *, INDEX1 2844 
R2, #2776 ; INDEX1,« 
BLE 1$ 
RTS PC ; 2787 


ABSCODE$ + 7022 


-SBTTL T1i TEST 11 - PACKET LENGTH TEST 


JSR PC, $Til ; | 2878 
TRAP 66 
OR RO 

BLO 1$ 

RTS PC 

ABSCODE$ + 7342 


SEQ 151 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 Page 64 
vo1.0 TEST 11 - PACKET LENGTH TEST 27-Mar-1986 07:33:50 DISK2: (SCODA.QNA.ZQNA)ZQNA3.BL1;2 (28) 


sSBTTL ‘TEST 12 - NXM INTERRUPT TEST‘ 
See 


TEST 12: NXM INTERRUPT TEST 
DESCRIPTION: 
NOTE: THIS IS IMPORTANT,,, PLEASE READ IT !!!! 
This test_is only run if selected by operator ch ing software 
defaults. This test should only be run if there is less than 4MB 
of memory in a ‘22 bit backplane system’ or less than 256KB in an 


'18 bit plane 1: his test sets up the DEQNA to transmit 
from a buffer at 17760000 (the most significant bits are trunggted 


Use following Descriptor List and buffer addresses: 


TRANSMIT RECEIVE 
kkk ke sotto ak 


~J 
ro beberebebe re bebs bebe ba bebe bebe be bebe bebe bobs bs bho habe he be ho bo 0 bo be fee ae fn ba fn ee ed ee ed ad ad fen en fu en ud en ea eo 


? 

f 

: 

’ 

: 

’ 

: 

' 
28 : by the number of wires physically present in the plane). If 
2897 ; physical earery exists at that address, the test will fail. This 
2898 ! est should not be selected if the maximum amount of memory is 
2899 : present in your system !!!!! 
2900 : 
2901 : . . . . 
2902 ! This test verifies that Transmit and Receive List Invalid bits 
2903 : (CSR bits 4 and 5) can be set and reset as specified and that both, 
2904 : Transmit and Receive ut | Ay te List addresses in the I/0 page have 
2905 to be valid to succesfully loopback a packet. 

: After a software reset Transmit and Receive List Invalid bits are 

: checked for their initial condition state (both set). Then these bits 

: are cleared by writing Transmit and Receive Descriptor List addresses 
soe into Transmit and Receive Buffer Descriptor Registers. 
2912 ! First, valid loopback packet is sent to verify that UUT properly 
2913 : transmits and receives loor ets. » @ Non-Existant | 
2914 ! Memory Access ( NI ) bit is forced to "1 “ each time an invalid 
Soiz loopback packet is sent. 
2917 ! If the operator specifies loop on error, the program re-executes the 
ore code that detected the error until tC is entered. 
2920 : Hardware tested: Q-Bus to QTDC interface — : 
2921 : - Valid and invalid host memory 
e922 : address processing 
2923 : CSR register - NXM access (bit 2) — 
2924 : - Interrupt Enable (bit 6) 
2925 : - XMIT List Invalid (bit 4) 

- RCV List Invalid (bit 5) 

: 

: 

: 

: 

: 





CZ O DEQNA FUNCTIONAL TEST 
TEST 12 - NXM INTERRUPT TEST 


DESCR LIST ADR 


7) @F @e we ee oe os we ee os 
b> b> b> > pe pe pe pn po pe 


SEQ 152 
27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 
27-Mar-1986 07:33:50 DISK2: [SCODA.QNA.ZQNA)ZQNA3.B8LI;2 


DESCR LIST ADR BUFFER ADR 


VALID 
DON'T CARE DON'T CARE 
DON‘ T CARE DON’T CARE 
INVALID DON'T CARE 
D INVALID 


ae 


sh hh ld ld od dd edd ddd dd 


CZQNAEO DEQNA FUNCTIONAL TEST 
TEST 12 - NXM INTERRUPT TEST 


Processing: 
BEGIN 


reset device ( disables device interrupt ) 
select internal loopback mode 


read 
el and RCV List Invalid bits not = 1 
point error message if not inhibited 


enable device interrupt (set CS2 bit 6) 

transmit valid loopback e 

check for expected loopback status 

IF error 

en t if not inhibited 
int error if not inhibi 

enor sits 


call compare_packets 
ot we Mg mail» > of addresses “- the set 
ransm nv oopback packe 
IF NXM interrupt didn't occured 


oot error message if not inhibited 
check for expected loopback status 
IF error 
int if not inhibited 
int error i inhibi 
ENDIF — 


ENDREPEAT 
END 


27-Mar-1986 07:36: 
27-Mar-1986 07:33: 


SEQ 153 
VAX-11 Bliss-16 V4.0-579 Page 66 
DISK2: (SCODA.QNA.ZQNA)ZQNA3.BLI;2 (29 


YS 


3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
4 
4 
4 
4 
4 
4 
4 
6 
6 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
6 
6 
6 
6 
7 
7 
7 
7 
7 
7 
6 
4 
4 
4 
4 
4 
4 
4 


CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09  VAX-11 Bliss- on 
TEST 12 - NXM INTERRUPT TEST 27-Mar-1986 07:33:50  DISK2:{SCODA.GNA. ZNAIZONAS..BLI;2 


BGNTST; 
tee 
RESET DEQNA AND SELECT LOOPBACK MODE 


RESET_DEQNA ( ); 


He eas eqlu yes fonly run test if operator selected 
begin 
SETVEC ( .HWP_TABLE [ VEC ], QNA_INT, PRIO7 ); ! SET UP FOR QNA INTERRUPT 


“INDEX FROM 1°10 14 DO 
WRT_STATION_ADR ( .INDEX, PHA INDEX ); 


XMIT. SETUP_PACKET ( N_MODE ) 
ENDSUB; 2 : 


RBUF_LENGTH = 6; 
XBUF_LENGTH = - ( .RBUF_LENGTH t -1 ); 
CLR_BUFFERS ( B_SIZE ); 

ERR_NUMBER = ZERO; 


bee 
! LOOPBACK A PACKET, VALID DESCRIPTORS AND BUFFER ADDRE » THEN 
i LOOPBACK PACKET WAS PROPERLY RECEIVED AND NI BIT IN con > 'O — = 


RESET_DEQNA ( ); 
WRT_STATION_ADR ( ZERO, PHA_INDEX ); 


= oii 


| TRY TO LOOPBACK A PACKET WITH INVALID TRANSMIT DESCRIPTOR ADDRESS. 
! THEN CHECK FOR NON-EXISTANT MEMORY INTERRUPT ( NI) BIT IS SET TO 1 


P 67 
9 (30) 





SEQ 155 

ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 - VAX-11 B11; v4.0-579 —_ 
v01.0 TEST 12 - NXM INTERRUPT TEST 37-Mar-1986 07:33:50  DISK2;{SCODR.CNA’ ZQNAT ZONA .BLI 2 98 30) 

3030 

3031 RESET_DEQNA ( 

3032 "TOP. TABLE xb noe } = Noe Lo. aon, 

3033 TOP" TABLE NXM~HI-ADR 

3034 if NOT GET_BIT C7COR, NI) 

30 IF _( .XMIT_D_LIST { FLGWD ) AND XFLG_MASK ) NEQU XFLG_MASK 

3037 THEN 

3030 = GET8IT ( CSRALL > 

S H 

304s PRIS 3): 

3041 INTB ¢ NoGoe 

3042 PRINTE ¢ nSG27 

3043 ERRDF ¢ 1262. H&GO0, ELSREPORT ); 

3044 : 

3045 ENDSUB; 

at 

3048 ! TRY TO LOOPBACK A PACKET WITH INVALID RECEIVE DESCRIPTOR ADDRESS, 

3049 ! THEN CHECK IF MON-EXISTANT MEMORY INTERRUPT ( NI) BIT IS SET T0'1 

3051 ie 


RESET _DE QNA ( ); 
WRT STATION. ADA € ZERO, PHA_INDEX ); 


- [OP_TABLE } Be RLO_ a = NXM_LO_ADR; 
. T0P_TABLE = NXM_HI i 


SET XDESCR_LIST ( . XBUF_LENGTH 
.I0P_TABLE [ XLO_ADR }: XMIT_D Us?! 
-IOP_TABLE { XHI_ADR } = ZERO; 


CHK_RIXI_STATUS ( ONE ); 


CHK_CSR_STATUS ( #0 

CHK-XMIT STATUS ( XPLG STATUS, Rubee STATOS ); ! 0'140000', 0000400" 
.IOP_TABLE { CSR ] = EENABLE; 

DELAY ( 20 


) 
IF NOT GET_BiT ( CSR, NI ) 
IF_( .RCV_D_LIST [ FLGWD } AND RFLG_MASK ) NEQU RFLG_MASK 
BEGIN 


SURPEPSESESE Lit ot it cients 


RASASSSAMNAAAAAAANAAAAAAAAANAANAOA DP PPP PED IIORRAMKOAGE 





-IOP_TABLE [ CSR ] = EENABLE; 
DELAY ( 20 ); 


SEQ 156 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09  VAX-11 81; v4.0-57 ° “ 
v01.0 TEST 12 - NXM INTERRUPT TEST 37-Mar-1986 07:33:50  DISK2:(SCODA.QNA ZQNATZONAS.BL1,2 °°%%:363 
; 3083 6 IOP_TABLE [ CSR ] = DISABLE; 
; 3084 4 ENDSUB ; 
: 3085 : 
| Se sa we cee 8 ret cee eee TRANSMIT BUFFER ADDRESS, 
: $088 4 © | THEN CHECK IF NON-EXISTANT MEMORY INTERRUPT ( NI) BIT IS SET'TO 1 
3090 4 ; 
; 3091 6 
; 3092 6 RESET_DEQNA 
'| See Sar bitel trek y= NX LO. " 
; 63095 6 “IOP7TABLE [ XLO_ } : XMET_D.LIST; 
; 309% 6 "TOP"TABLE { XHI~ m 
; 3097 6 DELAY ( 20 
: 3098 6 IF NOT GET_BIT ( CSR, NI ) 
; 3100 6 IF _( .XMIT_D_LIST { FLGWD ) AND XFLG_MASK ) NEQU XFLG.MASK 
3 3101 6 THEN 
+ Stes 3 =GETBIT ( CSR_ALL ) 
; «3104 7 PRINT. 9°); 
ss moo FT INTB Meaoo ); 
; 3106 7 PRINIB ¢ Hees? 3 
; 3107 7 ERRDF ( 1204, MSGO0, ERRORSREPORT ); 
; 3108 6 END; 
; 3109 4 ENDSUB; 
aR eS 
; 3112 4 — {° TRY TO LOOPBACK A PACKET WITH INVALID RECEIVE BUFFER ADDRESS 
: $113 4 — } THEN CHECK IF NON-EXISTANT MEMORY INTERRUPT ( NI) BIT IS Set 101 
; «3115 4 : 
; 3116 6  BGNSUB 
i 317 6 RESET_DEQNA ( ); 
; 63119 6 SET _ROESOR LIST (_ LENGTH, VENXM ); 
; 3120 6 RCV_D_ LIST 5 NXM_LO_ADR 
; 3121 6 TOP_TABLE = RCV_O LIST; 
i Hee 6 TOP TABLE = ZERO; 
; 
; 31da 6 SET_XDESCR_LIST ( .XBUF_LENGTH 
; 3125 6 .I0P_ TABLE aye 2 yMIT B Last: 
: 3126 6 “IOP"TABLE { XHI-ADR } = ZERO; 
; 
: 328 6 CHK_RIXI_STATUS ( ONE ); 
‘ 
; 3130 6 CHK_CSR_STATUS ( #0'000220', #0'000220 
+ HB 6 CHKIXMIT-STATUS ( XFLG STATUS, XWD1e SvATUS J; ! 0'140000', 0'000400° 
6 
3 6 
3 6 





SEQ 157 
ZQNA CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Blies-16 V4.0-579 Page 70 
V01.0 TEST 12 - NXM INTERRUPT TEST 27-Mar-1986 07:33:50  DISK2:[SCODA.QNA.ZQNA]ZQNA3.BLI;2 (30) 
; 3136 6 IF NOT GET_BIT ( CSR, NI ) 
; oeea THEN 
; 3138 6 IF_(_.RCV_D_LIST [ FLGWD ] AND RFLG_MASK ) NEQU RFLG_MASK 
; 3139 6 THEN 
: 3a 7 ioe Tie GET_BIT ( CSR_ALL ) 
; ’ 
; 3142 7 "C fst ah DISABLE; 
$ 3143 7 
; 44 7 sl ld 
; 3145 7 PRINTB ¢ Meee? }: 
: 346 7 ERRDF ( 1205, MSGO0, ERROR$REPORT ); 
; 
; 63148 6 .IOP_TABLE f CSR ] = DISABLE; 
; 3149 4 SUB; 
; 50 4 
: 3151 3 end; 
: 52 3 
. Bae 2 ENDTST; 
.SBTTL $T12 TEST 12 - NXM INTERRUPT TEST 
000000 010146 $712: MOV R1,-(SP) 2879 
000002 162706 000026 SUB 
000006 0000006 JSR PC RESET .DEQNA 2983 
000012 023727 0000006 000001 CMP SUP .NXM, #1 , 2985 
000020 BEQ i$ 
000022 000137 011234’ JMP 26$ 
000026 012746 000000G 1$: MOV #PRIO7, -(SP) 2989 
000032 012746 0000006 MOV #QNA. INT, -(SP) 
000036 013700 0000006 MOV HWP. TABLE ,RO 
000042 01 000002 MOV 2(RO), -(SP) 
000046 012746 000003 MOV #3,-(SP) 
000052 104437 TRAP «2337 
000054 004737 0000006 JSR PC,PREP.FOR. SETUP ; 
000060 012701 000001 MOV #1,R1 ; *, INDEX 2991 
000064 010116 2$: MOV Ri, (SP) ; INDEX, « 2992 
000066 012746 000023 MOV #23, -(SP) 
000072 7 0000006 JSR PC, WRT. STATION. ADR 
000076 26 TST (SP)-+ 
000100 1 INC Ri ; INDEX 2991 
000102 020127 000016 CMP R1,#16 ; INDEX, « 
000106 003766 BLE 23 
000110 104402 3$: TRAP 2 ; 2992 
000112 012716 000200 MOV #200, (SP) ; 2995 
000116 004737 000000G JSR PC, XMIT. SETUP. PACKET 
000122 104467 TRAP 67 
000124 006000 ROR RO 
000126 103770 BLO 3$ 
000130 012737 000006 0000006 MOV #6, RBUF .LENGTH F 2998 
000136 012700 000006 MOV #6 ,,RO ; 2999 
000142 ASR RO 
000144 NEG RO 
000146 010037 0000006 MOV RO, XBUF . LENGTH 





CZQNAEO DEQNA FUNCTIONAL TEST 
TEST 12 - NXM INTERRUPT TEST 


004000 

000000G 
000000G 
000000G 


000023 
000000G 
000000G 
000000G 

000016 000012 
000004 000012 
000012 000014 
000014 000000G 
000001 

000000G 

000001 


000000G 
000001 


4$: 


222ng Bape dees 


oo co 
tH 
Stor te 


CMP 
BEQ 
MOV 
MOV 
MOV 
MOV 
MOV 


27-Mar-1986 07:36:09 
27-Mar-1986 07:33:50 


#4000, (SP) 
PC.CLR. BUFFERS 

PC, RESET. DEQNA 
,-(SP) 

WRT . STATION. ADR 


. [LOOP . PACKET 
aOR; RO 


RO), 12(SP) 
12(SP) 
) 


PC RESET. DEQNA 
#-20000, @IOP. TABLE +10 
$77, @10P. TABLE+12 
REG. ADR, RO 
16(RO),16(SP) 

$4, 16(SP) 


T.D.LIST,R1 
7,R 


VAX-11 Bk iss-16 V4. 


DISK2: ([ SCODA.QNA.ZQNA}ZQNA3. BLI;2 


*, TMP .LOCATION 
*, TMP .LOCATION 


*, TMP ..LOCATION 
TMP .LOCATION, « 


SP ,* 

SP ,* 

SP ,* 

*, TMP .LOCATI 
*, TMP .LOCATION 
*, TMP .LOCATION 
TMP .LOCATION, « 
SP,* 





3033 
3034 


3036 





CZQNAEO DEQNA FUNCTIONAL TEST 
TEST 12 - NXM INTERRUPT TEST 


000000G 
000001 


000000G 
000001 


7$: 


9$: 


000046 10$: 
11$: 
l2$: 


000000G 
037777 
140000 


So*MBSS ESSERE SESS SSE SSE SS REC EEC SEs 


Seed te 


ey iii 
Ri 8 #-40000 


VAX-11 Bliss-16 V4.0-579 
DISK2: [SCODA.QNA.ZQNA)JZQNA3.BLI;2 


SP , * 


*, $$TMP2 
*, $$TMP1 


$$TMP 
$$TMP1,* 
$$TMP2 


*, TMP. 
*«, TMP. 


LOCATION 
LOCATION 





3068 
3070 


3071 


3073 





SEQ 160 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 Page 73 
v01.0 TEST 12 - NXM INTERRUPT TEST 27-Mar-1986 07:33:50  DISK2:[SCODA.QNA.ZQNA)ZQNA3.BLI;2 (30) 
736 001440 BEQ 13$ 
000740 005077 0000166 CLR SIOP . TABLE +16 , 3076 
016666 000032 000034 MOV $2¢ SP), S4(SP) ; *, TMP. LOCATION 3077 
016637 000034 000000G MOV 34(SP),CSR.WORD ; TMP .LOCATION, « 
000760 012716 MOV 8MSG59, (SP) , 3078 
000764 012746 000001 MOV #1, -(SP) 
000770 010600 MOV SP RO ; SP,« 
000772 14 TRAP 3s «44 
000774 912716 0000006 MOV #MSG29, (SP) 3079 
001000 . 746 000001 MOV #1,-(SP) 
001004 010.00 MOV SP RO ; SP,« 
1006 TRAP 3s «14 
001010 012716 0000006 MOV #MSG27, (SP) 3080 
001014 012746 000001 MOV #1,-(SP) 
001020 010600 MOV SP ,RO ; SP,* 
001022 104414 TRAP 3 s«14 
104455 TRAP 3=ss55 ; 3081 
026 002263 2263 
001030 0000006 “WORD  MSGOO 
001032 0000006 -WORD EL$REPORT 
001034 062706 000006 ADD #6,SP 3075 
001040 005077 000016G 13%: CLR @IOP . TABLE +16 ; 3083 
001044 062706 000010 10,SP ; 3045 
001050 104467 TRAP = & , 3083 
001052 006000 ROR 
001054 103623 BLO 8$ 
001056 104402 14$: TRAP 2 3084 
001060 004 0000006 JSR PC ,RESET. DEQNA ; 3092 
1 013716 0000006 -LENGTH, (SP) ; 3093 
001070 120077 MOV #-57701, -(SP 
001074 0000006 JSR SET. XDESCR.LIST 
1100 012737 160000 000004G MOV $- »XMIT.O.LIST+4 ; 3094 
1106 012777 0000006 000010G MOV @XMIT.O.LIST.@i0P. TABLE+10 ; 3095 
001114 005077 0000126 CLR @l0P. TABLE» ; 3096 
1 012701 000024 MOV ; ; *,$$TMP2 3097 
001124 001410 15$:  BEQ 18 
001126 013700 0000006 MOV L$DLY,RO ; *,$$TMP1 
001132 001403 BEQ i7$ 
001134 005066 000040 16$: CLR 40(SP) ; $$TMP 
001140 077003 S08 RO, 16$ ; $$TMP1,s 
001142 005301 17$: DEC Ri ; $$TMP2 
001144 000767 BR 15$ 
001146 013700 9000006 18: MOV REG. ADR, RO ; 3098 
001152 016066 000016 000030 MOV 16(RO), 30(SP) ; *,TMP.LOCATION 
001160 032766 000004 000030 BIT #4, 30(SP) ; *, TMP.LOCATION 
001166 001045 19 
001170 013701 0000006 MOV XMIT.D.LIST,R1 ; 3100 
001174 042701 037777 BIC e377 Rl 
001200 020127 140000 CMP #-40000 
001204 001436 BEQ 
001206 016666 000030 000032 MOV 30($P),32¢SP) ; *, TMP.LOCATION 3103 
001214 016637 000032 000000G MOV 32(SP),CSR.WORD ; TMP.LOCATION, « 
001222 012716 000000G MOV #MSG59, (SP) ; 3104 





CZQNAEO DEQNA FUNCTIONAL TEST 
TEST 12 - NXM INTERRUPT TEST 


000001 
000000G 
000001 


000000G 
000001 


0000006 
000016 000042 
000004 00004 


19$: 


20$: 


2i$: 


22$: 
23$: 
243: 


TST 


SPSS BSESSeSSySegS gas sousegeS gens 


no 
4< 


27-Mar-1986 0 


7:36:09 
27-Mar-1986 07:33:50 


#1, -(SP) 
SP ,RO 


1 
a. ee 


: 
i 
bet 
ww 
pa) 
=a 
Si 
£ 
m 
— 
~ 
oS 





VAX-11 Bliss-16 V4.0-579 


; SP,* 
; 
; SP,* 


; *, $$TMP2 
; *,$$TMPL 


$$TMP 
; $$TMP1,+* 
; $$TMP2 


*, TMP LOCATION 
#, TMP LOCATION 





SEQ 161 9 
DISK2: {SCODA.QNA.ZQNAJZQNA3.BLI;2 (30) 


3106 


3136 


; Routine Size: 


CZQNAEO DEQNA FUNCTIONAL TEST 


TEST 12 - NXM INTERRUPT TEST 


000000G 
037777 
140000 


000042 000044 
000044 000000G 
000016G 

000000G 

000001 

000000G 

000001 

000000G 

000001 

000006 

000016G 25$: 


000010 


000012 
000026 26$: 


475 words, 


; Maximum stack depth per invocation: 26 wo 


MOV 
RTS 


27-Mar-1986 07:36:09 
27-Mar-1986 07:33:50 
25$ 
oy ee 
Ri, #-46000 
253 
42(SP),44(SP 
44( SR. WORD 


MSGOO 
ERROR$REPORT 
%6 
@IOP . TABLE+16 
#10,SP 

67 

RO 

20$ 

#12,SP 

$26, SP 
(SP}+,R1 

PC 


Routine Base: ABSCODE$ + 7356 
rds 


VAX-11 Bliss-16 V4.0-579 
DISK2: [SCODA.QNA.ZQNA)ZQNA3.BLI;2 


; *,1MP.LOCATION 
; TMP.LOCATION, + 
; 
; 


; SP,* 


SEQ 163 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 P 76 
v0O1.0 TEST 12 - NXM INTERRUPT TEST 27-Mar-1986 07:33:50 DISK2: ([SCODA.QNA.ZQNA)ZQNA3.BL1;2 oe 30) 
-SBTTL Ti2 TEST 12 - NXM INTERRUPT TEST 
000000 004737 007356’ Tl2:: 
000000 1$: JSR PC,$T1i2 $ 3151 
000004 104466 TRAP 66 7 
000006 006000 ROR RO 
000010 103773 BLO 1$ 
000012 000207 RTS PC . 
; Routine Size: 6 words, Routine Base: ABSCODE$ + 11244 
; Maximum stack depth per invocation: 2 words 
: 3154 1 
5; ae 2 


ens 


rint error if not inhibited 
ENDIF Saget 


call compare_packets 


transmit multiple, linked and chaind loopback packet 


for expected loopback status 
fet 


i error message if not inhibited 


call re ets 
po compare_pack 


SEQ 164 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 Page 77 
V0O1.0 TEST 12 - NXM INTERRUPT TEST 27-Mar-1986 07:33:50 DISK2: [SCODA.QNA.ZQNA)ZQNA3.BLI;2 (31) 
s mae 3 
; 312, : sSBTTL ‘TEST 13 - MULTIPLE AND CHAINED PACKET TEST’ 
: fee 
> aoe 2 ! 
; siee ; TEST 13: MULTIPLE AND CHAINED PACKET TEST 
Py > 
; see : DESCRIPTION: 
; : 
; 3164 1 ! This test verifies that the DEQNA can transmit and receive multiple, 
; see : linked and chained loopback packets. 
; ! 
i i= s ! If the operator specifies loop o. error, the program re-executes the 
; see ; code that detected the error until tC js entered. 
; ® 
; $170 1 : Hardware tested: 
s Ssi71 j : c 
s gate i : Processing: 
> aa 8 : 
; 3174 1 ! BEGIN : 
s 3175 1 reset device 
; 3176 1 select internal/extended 1 mode 
: (a oe transmit simple ae et 
s we § check for expected loopback status 
5 gare i F error 
s 3180 i 
5 oa 6 
; 1 
; 1 
; 1 
; 1 
; 1 
; 1 
; 1 
; 1 
; 1 
; 1 
; 1 
; 1 





ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 Ax- - - = 
vo1.0 TEST 13 - MULTIPLE AND CHAINED PACKET TEST 27-Mar-1986 07:33:50 DISK2:(SCODA, QNA. ZQNA}ZONA3..BLI;2 Page 335 


BGNTST; 


RBUF_LENGTH = 64 
XBUFLENGTH = - ¢ .RBUF_LENGTH t -1 ); 


Ses 
: LOOPBACK UNCHAINED PACKET, THEN CHECK IF IT WAS PROPERLY RECEIVED 


W =. ‘ 
rain’ 16 4 — 4 RD13 { .INDEX ); 
XMIT_D_LIST { . INDEX, WLLEN ) = .TD13 [ . INDEX }; 


XMIT_D_LIST » WLEN ] = VE; : f 
XMIT_D_LIST t 33 13, W_LEN } = E; ithis lak tava conmeene nated E 


PUT _BIT ng . 
MrT [ Os ee 


—_ 


3230 AND_RCV_P ( 5 

3231 CHK RIXI-STATUS C cERO 

323 CHK-CSR_STATUS (¢ CSR_STATUS, CSR_MASK ); 1 0'100220', 0100220: 
3534 XMIT_D_LIST { 7, WLEN] = V ' 

3535 XMIT~D~“LIST 12’ WHLEN ] = NEW; i ao oe ae 
oe. XMIT_D LIST { 13, W_LEN ] = V; 'comments added rev E 

3338 TOP TABLE f xL.0_aDR T 

3239 “TOP "TABLE aug ao” tt Pie Serene He gre te @ 


CHK_RIXI_STATUS ( ZERO ); 
CHK_CSR_STATUS ( CSR_STATUS, CSR_MASK ); ! 0'100220', 0'190220' 


bs 


See 
: CHECK IF RECEIVE BUFFER DESCRIPTOR |.{STS PROPERLY VOLIDATED 


; 3 
; 3 
; 3 
; 3 
; 3 
$ 3 
; 3 
: 3 
: 3 
: 3 
: 3 
: 3 
; 3 
$ 5 
; = 
$ 5 
; 5 
: 5 
$ 3 
; 3 
$ 3 
; 3 
; 3 
; 3 
3 3 
; 3 
; 5 
; 3221 5 
; 5 
; 5 
; 5 
; 5 
: 5 
; 5 
; 5 
; 5 
$ 5 
; 5 
; 5 
; 5 
; 5 
; 5 
; 5 
; 5 
; 5 
; 5 
; 5 
; 7 
; 5 
; 5 
; 5 
; 5 
; 5 





SEQ 166 


( XFLG 
CHK_RCV_STATUS ( RFLG_STATUS, RWD1_STATUS 
0 


ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09  VAX-11 Bliss-16 V4.0-579 Page 79 
V01.0 TEST 13 - MULTIPLE AND CHAINED PACKET TEST 27-Mar-1986 07:33:50  DISK2:{SCODA.QNA.ZQNA)ZQNA3.BLI;2 (32) 
; 3247 5S 
; 3248 5 INCR INDEX FROM 0 TO 53 DO 
; 3249 § IF .RCV_D LIST i. g INDEX, W_LEN ] NEQU .RD13 [ . INDEX 
; 3250 5 AND (~ .RCV INDEX, W.LEN ] AND #0'140000' ) NEQU #0’ 140000' 
; 3251 5 AND .RCV_D -P st { Coes W_LEN ] NEQU #0’ 020600' 
; 3252 5 THEN 
; 3253 6 
; 3254 6 SR_WORD = cGE}-B1T ( CSRALL ); 
; 3255 6 SRINTE MSG59"); 
; 3256 6 PRINT ( HSGA 
; «3257 6 INTB ( neg’. ACV. bey D_LIST, INDEX. .RCV_O_LIST { INDEX, W.LEN } 9; 
, 3258 6 ( ERROR$REPOR 
: 3259 5 —_— 
i er 8 ; 
F ++ 
; 3262 : : CHECK IF TRANSMIT BUFFER DESCRIPTOR LISTS PROPERLY VOLIDATED 
' + ls 
: 3264 5 
; 3265 5 INCR INDEY FROM 0 TO 23 DO 
; 3266 5 IF aint 2 LIST { . INDEX, W_LEN ] NEQU .TD13 [ INDEX J 
; ma § wien -DALIST C_ INDEX, WLEN } AND x0' 140000 NEQU #0’ 140000° 
; 3268 5 aD XiIT-D-LISt -TNEX. ii LEN’ NEQU "020414" 
; 3269 5 AND .XMIT_D_LIST [ . INDEX, W-LEN ] NEQU #0'004140" 
; 3270 5 THEN 
; Som 6 BEGIN 
; 3272 6 CSR_WORD = GET_BIT ( CSR_ALL ); 
:; 3273 6 PRINTB ( MSG59 ); 
; 3274 6 PRINTB ( MSG49 ); 
; 3275 6 PRINTB ( nog?6, XMIT_D LIST INDEX, .XMIT_D_LIST [ .INDEX, W_LEN } ); 
; 3276 6 ERRDF ( 1302, MSGOO, ERRORSREPORT 3;° 
; 3277 5 END; 
; 3278 5 
; 3279 5 INCR INDEX FROM 0 TO 5 DO 
; 3280 6 BE 
; 3281 6 XMIT_D_LIST INDEX, W_LEN } = .XMIT_D.LIST ( . Bt MLEN, J: 
; 3282 6 RCV_0_LIST INDEX, W_LEN -RCV_6_CIST C iipen , W_CEN 
:; 3283 : END; 
; 3284 
; 3285 § CHK_XMIT_STATUS _STATUS, XWD12_ STATUS ds ! 0'140000',, 0'000400° 
; 3286 : : ; 0' 140000’ , 0'020000' 
: 
; 3288 5 INCR INDEX FROM 0 TO 383 DO 
; 3289 5 IF_.XMIT_BUFFER [ . INDEX ] NEQU .RCV_BUFFER [ . INDEX ] 

; 3290 5 THEN 

; 3291 6 BEGIN 

; 3292 6 CSR_WORD = GET_BIT ( CSR_ALL ); 

; 3293 6 PRINTB ( MSG59°); 

; 3294 6 PRINTB ( MSG51 ); 

; 3295 6 PRINTB ( MSG50, .RCV_BUFFER [ . INDEX }. .XMIT_BUFFER [ .INDEX }, INDEX ); 

; 32% 6 ERDF ( 1303, MSGOO, ERRORSREPORT ); 

: 3297 5 END; 

; 3298 3 

; 3299 3 





SEQ 167 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 v4.0-579 Page 80 
V01.0 TEST 13 - MULTIPLE AND CHAINED PACKET TEST 27-Mar-1986 07:33:50  DISK2:{SCODA.QNA.ZQNA}ZQNA3.BLI;2 (32) 
; 3300 1 ENDTST; 
.SBTTL $113 TEST 13 - MULTIPLE AND CHAINED PACKET TEST 
000000 004137 0000006 $713: JSR R1, $SAVES3 , 
162706 000006 SUB SP 
000010 012737 000100 0000006 MOV #100, RBUF . LENGTH ; 3196 
000016 012700 000100 MOV #100,RO ; 3197 
000022 006200 ASR RO 
000024 005400 NEG RO 
000026 010037 0000006 MOV RO, XBUF .LENGTH 
000032 004737 000000G JSR PC. RESET. DEQNA 
000036 005000 CLR ; INDEX 3204 
000040 110060 0000006 1$: MOVB RO, XMIT. BUFFER(RO) ; INDEX, *C INDEX) 3205 
000044 005200 INC RO ; INDEX 3204 
000046 020027 000077 CMP RO, #77 ; INDEX, « 
000052 003772 BLE 1$ 
000054 104402 2$: TRAP 3D ; 3205 
000056 013746 0000006 MOV XBUF . LENGTH, -(SP) 3208 
000062 012746 120000 MOV #-60000, -( SP 
737 0000006 JSR pC SET -RDESCR LIST 
000072 013716 000000G MOV XBUF . LENGTH, (SP 3209 
000076 012746 120000 MOV #-60000, -(SP) 
000102 737 0000006 JSR PC, SET. XDESCR.LIST 
000106 005016 CLR (SP) ; 3210 
000110 737 0000006 JSR PC, SEND. ELOOP . PACKET 
000114 004737 000000G JSR PC: COMPARE . PACKETS ; 3211 
120 062706 000006 ADD #6,SP , 3205 
000124 104467 TRAP 67 : 3211 
126 ROR RO 
000130 103751 BLO 2$ 
000132 004737 JSR PC RESET. DEQNA ; 3214 
000136 012746 001000 MOV #1000, -(SP) 
000142 004 JSR PC, CLR. 
000146 005000 CLR RO ; INDEX 
000150 110060 0000006 3$: MOVB RO, XMIT. BUFFER(RO) ; INDEX, *C INDEX) 3217 
000154 005200 INC RO ; INDEX 
000156 7 000577 CMP RO, #577 ; INDEX, « 
000162 003772 BLE 3$ 
000164 104402 4s: TRAP 30D 
000166 005000 CLR RO ; INDEX 
000170 016060 0000006 0000006 S$: MOV RD13(RO),RCV.D.LIST(RO) ; *CINDEX), #CINDEX) 
000176 062700 000002 ADD RO ; *, INDEX 
000202 000176 CMP RO. #176 ; INDEX, « 
000206 003770 BLE S$ 
000210 CLR RO ; INDEX 
000212 016060 0000006 0000006 6$: MOV TD13(RO),XMIT.D.LISTCRO) ; *C INDEX), *C INDEX) 
000220 062700 000002 ADD #2,RO ; &, INDEX 
So0sso searhy re =. go" o 
000232 012737 120000 0000166 MOV £60000 XMIT .D LIST +16 ; ae 
” 7 + : 
900e4s 013700 0000006 MOV REG. ADR, RO 3229 





CZQNAEO DEQNA FUNCTIONAL TEST 
TEST 13 - MULTIPLE AND CHAINED PACKET TEST 


042760 001400 000016 
052760 001000 000016 
000000G 


005003 
010301 7$: 
00630 


BIC 
BIS 
JSR 
CLR 
JSR 
MOV 
MOV 
JSR 


SB SSeSCoSSg0CSass 


rs 
oO 


Bgaag gUsseee gees geeesageaG 


o 





27-Mar-1986 07: 
27-Mar-1986 07: 


peg tye ds 


16(RO 
Peoxntt. AND. eev. PACKET 


.RIXI. STATUS 
#-77560, (SP) 
(SP), -C(SP) 

PC, CHK. CSR.STA 


TUS 
#-100000, XMIT.D.LIST+16 
§- 100000 aay .D.LIST+30 


00000 D.LIST+32 
#XMIT.D.LIST+30,@10P. TABLE+10 
@IOP. TABLE+12 


PC, CHK .RIXI.STATUS 
77560, (SP 


$- 
(SP), -(SP) 
PC. CHK.CSR. STATUS 


R3,R1 


RCV.D.LISTCR1),RO 
RO,RDISCR1) 






-LISTCR1), (SP) 


* 






rr 

ue 
4 
J 


Af 





a 
a) 





>t 


#14 ,SP 


VAX -11 Bliss-16 V4.0-579 
OISK2: (SCODA.QNA.ZQNA]ZQNA3.BLI;2 


; INDEX 


; INDEX,+« 


; SP,* 


; SP, 


: INDEX,» 


; SP,* 


+, TMP .LOCATION 
TMP .LOCATION, « 





Page 81 


(32) 





CZQNAEO DEQNA FUNCTIONAL TEST 
TEST 13 - MULTIPLE AND CHAINED PACKET TEST 


000065 


000154G 0000006 


8$: 


9$: 


10$: 


MOV 


MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
MOV 
MOV 
MOV 
TRAP 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
TRAP 
. WORD 
. WORD 
. WORD 
ADD 
INC 
CMP 
BLE 
CLR 
MOV 
ASL 
MOV 
ASL 
MOV 
MOV 
ASL 
MOV 
INC 


SEQ 169 
27-Mar-1986 07:36:09 VAX-11 Bliss-16 v4.0- 
27-Mar-1986 07:33:50 DISK2:( SCODA.QNA ZQNA7ZONAS..BLI 2 

R3 INDEX 
RS. #65 | TNOEX, © 
R3 E 
R3,R1 | INDEX. « 
XMIT.D.LISTCR1),RO 
RO, TD13(R1) 
10$ 
asrii7 R2 
R2, -46000 
10$ 
RO, #20414 ' 
10$ 
RO, #4140 ; 
10$ 
TECROD ice sP) x, TMP 
: ; *, TMP.LOCATION 

10(SP),CSR.WORD ; 
10CSP).CSR, , TMP .LOCATION, « 
#1, -(SP) 
ge ; SP , * 
oMSG49, (SP) 
#1,-(SP) ' 
_ , SP ,* 

e~ SP ; INDEX, * 
#XMIT.D.LIST,-(SP) 
#MSG76, -(SP) 
4, -(SP) 
14° : SP ,* 
55 ; 
2426 
MSGOO 
ERRORSREPORT 
#14, SP ‘ 
RS. 027 | INDEX, « 
R2 INDEX 
R2, RO : INDEX, * 
Re. Ri ; INDEX,« 
XMIT.D.LIST+60(R1),XMIT.D.LISTCRO 
R2,R1 ' ts ° 


1 
RCV.D.LIST+154(R1),RCV.D.LISTCRO) 
R2 ; tNDEX 





3275 


3276 


3279 





; Routine Size: words 
; Maximum stack death per invocation: 


CZQNAEO DEQNA FUNCTIONAL TEST 
TEST 13 - MULTIPLE AND 


000005 


140000 
000400 


0000006 
140000 
020000 
000000G 
000000G 000000G 


000577 
000010 


011444' 
000010 


12$: 


13$: 


14$: 


CHAINED PACKET TEST 


27-Mar-1986 07: 
27-Mar-1986 07: 


REG. 
16(RO), 0) iersP) 


R 
ist .BUFFERCR1) , RCV. BUFF 


16(SP),CSR.WORD 


#MSG59 
#1,-(SP) 
SP; RO 


(SP) 


ne es ABSCODE$ + 11260 


:36:09 
:33:50 


ER(R1) 


VAX-11 Bliss-16 V4.0-579 


; INDEX 
3; *C INDEX), *( INDEX) 


; 

; *,1MP.LOCATION 
; TMP.LOCATION, + 
; 


; SP,* 


, 


SEQ 170 
DISK2: [SCODA.QNA. ZQNA}ZQNA3..BLI;2 
; INDEX,* 


Page 83 


(32) 


3285 


3217 
3297 


3153 








SEQ 171 


QNA3 CZ QO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 Page 84 
V0O1.0 TEST 13 - MULTIPLE AND CHAINED PACKET TEST 27-Mar-1986 07:33:50 DISK2: (SCODA.QNA. ZQNA]ZQNA3.BLI;2 (32) 
-SBTTL 113 TEST 13 - MULTIPLE AND CHAINED PACKET TEST 
000000 004737 011260’ T13:: 
000000 1$: JSR PC,$T13 ; 3298 
000004 104466 TRAP 66 
000006 006000 ROR RO 
000010 103773 BLO 1$ 
000012 000207 RTS PC 
; Routine Size: 6 words, Rout i 


; Maximum stack depth per invocation: 


» gaan 23 


ne Base: ABSCODES + 12502 
2 words 


eed 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SEQ 172 
CZ 07:36:09 VAX-11 Bliss-16 V4.0-579 Page 85 
TEST 14 - DMA TIMING TEST 27-Mar-1986 07:33:50 DISK2: [SCODA.QNA.ZQNA)ZQNA3.BLI;2 (33) 





QNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 
SSBTTL ‘TEST 14 - DMA TIMING TEST’ 


TEST 14: DMA TIMING TEST 
DESCRIPTION: 
This test verifies that the DMA transfer completes within ‘X' msec. 
Chained and linked 1514 byte loopback packet is used to accomp] i sh 
this test. If the operator specifies loop on error, the program 
re-executes the code that detected the error until tC is entered. 
NOTE: An answer to the following software quastion 
SYSTEM HAS BLOCK MODE MEMORY (L)? 
determines the value for ‘X'. 
Hardware tested: Internal/Extended loopback 
Transmit status - last descriptor in chain (bit 3 


Receive status - last descriptor in chain (bit 1 
- error summary (bit 14) 


Processing: 


BEGIN 
reset device 
select internal/extended loopback mode 
set the timeout timer to ‘X' msec 
transmit chained loopback packet 
start the timer 
IF timeout 


THEN 
int error if not inhibited 
ENDIF pti 


check for expected loopback status 
IF error 


rint error message if not inhibited 
END EF 


call re_ ets 
END compare_pack 





EAA AA AAA ASD DV DD AAA AA AA TUT UT UO UT UU UU UT Cd AWWW 





SEQ 173 
CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 Page 86 
TEST 14 - OMA TIMING TEST 27-Mar-1986 07:33:50 DISK2: [SCODA.QNA.ZQNA}ZQNA3.BL1;2 (34) 
BGNTST ; 


RBUF peMm = LEGAL LP ce 
ENGTH -1 ); 


XBUF _ 
INR INDEX FRO 0 10 LEGAL LENGTH = 100 
XMIT_BUFFER [ . 


BGNSUB 
RESET_DEQNA ( ); 


FROM 0 TO 63 D0 
RCV_D LIST [( . WLEN ) = .RD13 [ .INDEX ]; 
INCR F 070 $1 Bo 


XMIT_D_LIST { .INDEX, W.LEN ] = .1D13 [ . INDEX ); 
TEMPS = .XMIT_D_LIST [ 27, W_LEN 
TEMP6 = ‘RCV_D-CIsT f 51° WULEN 
TEMP? = :RCV~D“LIST [ 56, WULEN ). 
MATT D_LIST { 27, WLEN } = -628; 
RCV 5 _LIST Si. W = -625 
RCV-D-LIST { 56, WILEN } = RCV_BUFFER + LEGAL_LENGTH - 2; 


PUT_BIT { CSR, LB, INX_LOOPBACK ]} 
XMIT_AND_RCV_PACKET ( ); 


CHK_RIXI_STATUS (€ ONE ); 
IF_.SWP_BLOCK_MEM EQLU ONE 
TEMP4 = #0'367' 
TEMP4 = 4 « #£0'367'; 
IF_.TEMP1 GTRU .TEMP4 
THEN 


! ADDED 25% TO "305" TO GET "367". FIX FOR $$$ 
| CHANGE FROM 15 Miz TO 18 MHZ CPU, BY HLM. $$$ 


= GET_BIT ( CSR_ALL ; 
PRINTB ( MSGS ¢ Mecse 3: 
enERROF (1401, Akc00, ERRORSREPORT ); 


CHK_CSR_STATUS ( CSR_STATUS, CSR_MASK ); ! 0'100220', 0'100220' 
XMIT_D dd 27, WLEN ] = . TEMPS; 
51, W_LEN TEMP6 


Ppcv_6_CIS » Ww ee ; 
RCV_D_ [rey 56, W.LEN ] = .TEMP7; 


See 


CHECK IF TRANSMIT BUFFER DESCRIPTOR LISTS PROPERLY VOLIDATED 


INCR INDEX FROM 0 TO 23 DO 
IF .XMIT_D_LIST { .INDEX, W_LEN ] NEQU .TD13 [ .INDEX } 





FAA DD DD DAA AIAN AID DDD NAMA DD AD DAA AANA AA AKAM UL 





SEQ 174 
CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 Page 87 
TEST 14 - DMA TIMING TEST 27-Mar-1986 07:33:50 DISK2: (SCODA.QNA.ZQNA}ZQNA3.BLI;2 (34) 


AND aha .XMIT_D_LIST [ .INDEX, W_LEN ] AND #0'140000' ) NEQU #0’ 140000: 
BEGIN 
CSR_WORD = = GE}-B17 ( CSR_ALL ); 
PRINTB ( MSG59 
PRINTB ( MSG49 
PRINTB ( mag76,_ XMIT XMIT_D_LIST, .INDEX .XMIT_D_LIST ( INDEX, W_LEN } ); 
ERRDF ( 14062, MSGOO, ERROR$REPORT 3, ° 


See 
CHECK IF RECEIVE BUFFER DESCRIPTOR LISTS PROPERLY VOLIDATED 


INCR INDEX FROM 0 TO 53 DO 
TF <RCV_O.LIST [_ .INDEX, WLEN ] NEQU ROIS { INDEX } 
9 -RCV_D_LIST [ INDEX, W_LEN ] AND #0'140000' ) NEQU #0’ 140000’ 


BEGIN 
CSR_WORD = oT tee ); 
PRINTB ( MSGS 3 3 


( MSG48 
INTB ( sow | (Cv ,D_LIST INDEX, y;RCV_O_LIST JINDEX, W_LEN J] ); 
ERROF ¢ 1403. , ERROR$REPOR 


INCR INDEX FROM 0 TO 5 DO 
BEGIN 
TEMP1 = .INDEX + 24; 


TEMP2 = .INDEX + oot 
XMIT_D_LIST INDEX, W_LEN XMIT_D_LIST [ .TEMP1, W_LEN 
an’- _B_CIST INDEX, W_LEN -RCV_6_CIST .TEMP2, W_LEN 


RBUF _L 1514 
CHIK_ iMIT STATUS Oe LG_STATUS, XWD12_STATUS ds ? 0'140000' , 0'000400' 
CHKTRCV_STATUS ( RFLG_STATUS, RWD1_STATUS }; ! 0140000’ » 0'020000' 


INCR INDEX FROM O TO .- _LENGTH - i DO 
“ao { . INDEX ] NEQU “Rev _BUFFER [ .INDEX ] 
Seer MORD GET_BIT € CSR_ALL ) 
PRINT C MSGSO” rf 
PRINTB ¢ 1 
_ ERRDF ( 1404, » ERRORS T oR: 
ENDSUB; 
ENDTST 


-SBTTL $114 TEST 14 - DMA TIMING TEST 





ZQNA3 
vO1.0 


pec seestOMUnstaA Cees conecrenrecess eeu tte 


000324 


CZQNAEO DEQNA FUNCTIONAL TEST 


TEST 14 - DMA TIMING TEST 


000000G 
000010 
002752 0000006 
002752 


000000G 1$: 


2$: 


000000G 000000G 3$: 
000002 


000000G 000000G A$: 
000002 


$714: 


pembe i 


SEER 


27-Mar-1986 07:36:09 
27-Mar-1986 07:33:50 


R1, $SAVE2 
#2752, RBUF .LENGTH 
$2752.RO 

RO 

RO 

RO, XBUF . LENGTH 

RO, XMIT . BUFFER(RO) 


RO,#2751 
1$ 


2 
PC. RESET . DEGNA 
RD13(RO),RCV.D.LIST(RO) 
RO. #176 

3$ 

RO 
TD13(RO),XMIT.D.LISTCRO) 
RO, #76 

4$ 


#-1164, XMIT.D.LIST+66 
#-1161,RCV.D.LIST 
@RCV . BUFF 


+146 
ER+2750,RCV.D.LIST+160 


#1400, 16(RO) 
#1000, 16(RC) 

, XMIT . AND .RCV. PACKET 
#1,-(CSP 
PC, CHK .RIXI.STATUS 
SUP . BLOCK. MEM, #1 


5$ 

+» al at 
$1734, TEMP4 
TEMP1, TEMP4 


REG. ADR, RO 

16(RO),2(SP) 

2(SP), CSR. WORD 
9, (SP) 

#1,-(SP) 

SP; RO 


(SP) 


14 
#1, - b1 CSP) 
SP.RO 


VAX-11 Bliss-16 V4.0-57 
DISK2:{SCODA.QNA.ZQNAJZQNA3.BLI;2 


see =e @e Ge ee =e @¢ @e« @e =e @e¢ Ge Ge 


INDEX 
INDEX , *C INDEX) 
INDEX 


INDEX, * 


*,1 
NDEX , * 


INDEX, * 


*, TMP .LOCATION 
TMP .LOCATION, + 


INDEX 
*(C INDEX) , #C INDEX) 
NDEX 


INDEX 
*( INDEX) , #C INDEX) 
*, INDEX 


3382 





CZQNAEO DEQNA FUNCTIONAL TEST 


TEST 14 - DMA TIMING TEST 


7$: 


8$: 


10$: 


——— 


27-Mar-1986 07:36:09 
27-Mar-1986 07:33:50 

14 

55 

2571 

MSGOO 

ERROR$REPORT 

(SP)+,(SP)+ 

- 77560, ( 

(SP), -(SP) 

PC, CHK.CSR US 

TEMPS, XMIT.D.LIST+66 

TEMP6 ,RCV.0.LIST+146 


TEMP? /RCV.D.LIST+160 
R2,R1 
XMIT.D.LIST(R1), TO13(R1) 


XMIT.D.LISTCR1),RO 
#37777, »RO 


1 

XMIT.D.LISTCR1), (SP) 

exnrT or LIST,-(SP) 
=($6) SP) 


R 

R2,Ri 
RCV.D.LISTCR1),RD13(R1) 
RCV.D.LISTCR1),RO 





SEQ 176 
VAX-11 Bliss-16 V4.0-5 
DISK2: [SCODA.QNA. ZQNA3ZONAS. BLI;2 


INDEX 
INDEX, * 


; *, TMP. LOCATION 
; THP.LOCATION, « 
; 


; SP,* 


; SP,* 


; INDEX,+* 


3410 
3411 


062737 
010200 
006300 


CZQNAEO DEQNA FUNCTIONAL TEST 
TEST 14 - DMA TIMING TEST 


037777 
140000 


000000G 
000016 000010 
000010 000000G 


000001 


000000G 


000001 


000014 
000065 


SS BESS tA SPSS PEPER SS SCM SABRES 23 


JSR 
CLR 


27-Mar-1986 
27-Mar-1986 


#37777 ,RO 


RO, #-40000 
i$ 


REG.ADR,RO 
16(RO),10(SP) 
10(SP),CSR.WORD 
#MSG59 

#1,-(SP) 

SP. RO 

(SP) 

#1, #1. (36) 
SP 4RO 

RCV. D.LIST(R1),(SP) 
gnev LIST, -(SP) 
#MSG75, -(SP) 

a4, -( SP) 


TR AT cern .O.LESTCRO) 


RCV.D.LISTCR1),RCV.D.LISTCRO) 


VAX-11 Bliss-16 V4.0-57 
DISK2: [SCODA.QNA.ZQNA]ZQNA3.BLI;2 


*, TMP .LOCATION 
TMP .LOCATION, « 


SP , * 


; INDEX 
; INDEX, 








90 


(34) 


3417 


3418 


3430 
3431 


; Routine Size: 


CZQNAFO DEQNA FUNCTIONAL TEST 
TEST 14 - DMA TIMING TEST 
000000G 000000G 13$: 
000000G 

000016 000016 

000016 0000006 

000001 


000000G 
000001 


14$: 


012566 
000010 15$: 


339 words, Routine 6. 


; Maximum stack depth per invocation: 1° 


ee .BUFFER(R1),RCV.BUFFER(R1) 


27-Mar-1986 07:36:09 
27-Mar-1986 07:33; 36 


BEQ 
MOV 

MOV 16CRO}, 0) -46CSP> 
MOV gHSG59 

MOV af caps 

MOV WR 

TRAP 

MOV 51, (SP) 
MOV #1, #1. (36) 

MOV SP RO 

TRAP 0s «14 

HOV Ri, (SP) 

HOVE XMIT. BUFFER(R1), (SP) 
MOVB RCV.BUFFER(R1),(SP) 
MOV #MSG50, -(SP) 
MOV #4, -(SP) 

MOV SP RO 

TRAP 3s «31.4 

TRAP 3=s«455 

.WORD 2574 

“WORD 

.WORD ERRORSREPORT 
ADD #14,SP 

INC 1 

CMP R1, #2751 

BLE 3$ 

ADD $10,S5P 

TRAP 7 

ROR RO 

BHIS 15% 

JUMP 23 

ADD $10,SP 

RTS PC 

‘S$CODE$ + 12516 


SEG 178 
VAX-11 te ae V4 .0-579 
DISK2: [SCODA.QNA. ZONA ZQNA3.BLI;2 


; *C INDEX), *C INDEX) 
*, IMP .LOCATION 

; TMP .LOCATION, « 

; 

; SP ,* 

: 

; SP ,* 

; INDEX,*# 

; *CINDEX),+« 

; *CINDEX),« 


; SP,* 


Page 91 


(34) 
3435 
3438 


3439 


3349 
3443 








SEQ 179 


ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 B ige- 16 V4.0-579 p Se 

vo1.0 TEST 14 - DMA TIMING TEST 27-Mar-1986 07:33:50 OISK2: [ A.QNA. 7aNA ZQNA3 .BLI;2 OOF 34) 
-SBTTL 1714 TEST 14 - DMA TIMING TEST 

000000 004737 012516’ T14:: 

000000 1$: JSR PC,$T14 : 2444 

000004 104466 TRAP 66 

000006 006000 ROR RO 

000010 103773 BLO 1$ 

000012 000207 RTS PC 

; Routine Size: 6 words, Routine Base: ABSCODE$ + 13764 

; Maximum stack depth per invocation: 2 words 


: 3447 1 


pee 


ES SOMOS ASKS HSK H HHO enna weeoaneaa 


a a ah a ld dd el od deed do edd ed 


80 
CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Blise-16 V4.0-579 : 
TEST 15 - LONG PACKET TEST 27-Mar-1986 07:33:50  DISK2:{SCODA.QNA.ZQNAJZQNA3.BLI;2 | **355 


SSBTTL ‘TEST 15 - LONG PACKET TEST’ 


es 
a 
TEST 15: LONG PACKET TEST 
DESCRIPTION: 
' This test veri? leg that DEQNA can detect long packets ( 1600 bytes 
! or more with the CRC ) when transmitted in internal/extended 
: loopback mode. If the operator ifies ] on error, the 
: program re-executes the code tha detected the error until fC is 
entered. 
Hardware tested: RCV Status - error summary (long packet-bit 14) 
Processing: 
BEGIN 


reset device 

rome eee eee} (legal he os length) 
ransmi 

check for expected ted loopbeck stetus 





IF error 
THEN 
ot '™* error message if not inhibited 
call compare ets 
transmit ee R wa: < euches Jon l > legal max 


) 
IF Error t ( Rece i, bit “a =i 
AND ( eet eacker eo is "Soamens ) 


int error if not inhibited 
agit Rast 


ER RE EES AES LCP ST IN ESE LEE DLE POLE SSS II OL DRE LLL SELES HEELS DLE IONE SOLE L EAD L CEL OE IS | ENR ERAT SRNL AREER ar UR > ee — eee 


cnet 


FO AAA AAO ON ON ON OI IU UU UU UO 


CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09  VAX-11 Bliee- 
TEST 15 - LONG PACKET TEST 57-Mar-1986 07,38,50 DISKS Teron. 
BGNTST; 


*?¢ 


LOOPBACK 1534 BYTE PACKET AND THEN CHECK IF PROPERLY RECEIVED. 
THIS IS THE LONGEST PACKET LENGTH WHICH DOESN'T SET ‘LONGP’ BIT IN 
THE RECEIVE STATUS WORD 1 ( BIT 14 ). 


RBUF_LENGTH = 1534; 
XBUF 


+¢ 


-LENGTH = - ( .RBUF_LENGTH t -1 ); 


LOOPBACK 1536 BYTE PACKET AND THEN CHECK IF BITS 13 AND 14 ARE SET IN 


RBUF _LENGTH = 1 
XBUF 





536; 
-LENGTH = - ( .RBUF_LENGTH ft -1 ); 


A 


$715 ey - LONG PACKET TEST 
$TiS: #2 = - LENGTH 





ppsagdensaneaai 





SEQ 181 


QNA . ZONA )ZQNA3.BLI;2 








94 


(36) 


SEQ 182 


ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 v4. 0,57 9 Page 95 
V01.0 TEST 15 - LONG PACKET TEST 27-Mar-1986 07:33:50  DISK2:(SCODA.QNA. ZQNA}ZQNA3.BLI;2 (36) 
000062 004737 0000006 JSR PC, SEND.ELOOP . PACKET 
000066 004737 000000G JSR PC, COMPARE . PACKETS ; 3499 
000072 062706 000006 ADD #6, SP , 3492 
000076 104467 TRAP =: 67 3499 
000100 006000 ROR RO 
000102 103747 BLO 1$ 
000104 737 003000 0000006 MOV $3000, RBUF .LENGTH ; 2507 
000112 012700 003000 MOV #3000, , 3508 
000116 ASR RO 
000120 NEG RO 
000122 010037 0000006 MOV RO, XBUF . LENGTH 
000 104402 2$: TRAP sO 
000130 737 0000006 JSR PC, RESET. DEQNA 3511 
000134 013746 000000G MOV XBUF . LENGTH, -(SP) ; 3512 
000140 012746 120000 MOV #-60000 (SP) 
000144 737 000000G JSR PC, SET .RDESCR.LIST 
000150 013716 000000G MOV XBUF . LENGTH, (SP) 3513 
000154 012746 120000 MOV #-60000, -(SP) 
000160 737 0000006 JSR PC, SET. XDESCR.LIST 
000164 012716 000001 MOV #1,(SP) ; 3514 
000170 737 000000G JSR PC, SEND .ELOOP . PACKET 
000174 004737 0000006 JSR PC, COMPARE . PACKETS ; 3515 
000200 062706 000006 ADD #6, SP ; 
000204 104467 TRAP 67 ; 3515 
000206 006000 ROR RO 
000210 103746 BLO 2$ 

12 000207 RTS PC ; 3446 
; Routine Size: 70 words, Rout ine ret ABSCODE$ + 14000 
; Maximum stack depth per invocation: 4 words 

.SBTTL 115 TEST 15 - LONG PACKET TEST 

000000 004737 014000° TiS: 
000000 1$: JSR PC, $T1iS ; 3516 
000004 104466 TRAP 66 
000006 006000 ROR RO 
000010 103773 BLO 1$ 
000012 000207 RTS PC 
; Routine Size: words, Routine Base: ABSCODE$ + 14214 


; Maximum stack deoth per invocation: 2 words 


3519 1 
3520 1 





iid 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


CZQNAEO DEQNA FUNCTIONAL TEST 
TEST 16 - ODD PACKET TEST 


sSBTTL ‘TEST 16 - ODD PACKET TEST’ 


TEST 16: ODD PACKET TEST 
DESCRIPTION: 


This test verifies that DEQNA can transmit and receive odd song 
packets and packets starting and/or ending on odd addresses. Chained 
and unchained descriptor lists are used to verify this. If the operator 
han loop on error, the program re-executes the code that detected 
error until tC is entered. 


Hardware tested: CSR register - XMIT List Invalid (bit 33 
; - RCV List Invalid (bit 5 
Transmit Descriptor bits 
: T buffer ends on odd byte 
- XMIT buffer ends on even byte 


Set of addresses and packet lengths: 


PACKET ADDRESS PACKET LENGTH 
odd in odd 
odd ~~ lin end even 
Processing 
BEGIN 


reset device 
REPEAT for internal and internal/extended loopback 
REPEAT for each packet address and length from set 
pe for expected loopback status 
error 


pnt error message if not inhibited 
call compare_packets 


ENDREPEAT 
ENDREPEAT 
END 


27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 
27-Mar-1986 07:33:50 DISK2: [SCODA.QNA.ZQNAJZQNA3.BL1;2 





SEQ 183 








PADMA AMAA AAA ASST NN ON ON 8 ON ON ON Od OO ON ON OUT UT Cd Gd St Gd Gd tt 


3616 
3% 





CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36: 
TEST 16 - ODD PACKET TEST 27-Mar-1986 07:33: 
BGNTST; 


Pee 
: RESET DEQNA AND INITIALIZE ETHERNET STATION ADDRESS RAM 


RESET_DEQNA ( ) 
PREP _FOR SETUP ¢ ); 

INCR-INDERL tron 370 16 D0 

WRT_STATION_ADR ( .INDEX1, PHA_INDEX ); 


BGNSUB ; 
agg ( P_MODE ); 
; 


RBUF_LENGTH = 
XBUF_LENGTH = - as -RBUF_LENGTH ft -1 ); 


See 


: LOOPBACK A PACKET, THiN CHECK IF LOOPBACK PACKET WAS PROPERLY 
! RECEIVED 


CLR_BUFFERS ( 32 ); 


CLR_DESCR ( ) 
INDEX 0 T0 5 DO 
XMIT_BUFFER [ .INDEX ] = .INDEX; 
BGNSUB ; . 


INDEX FROM 0 mi K. 43 oe 


INCR 
xMIT_DALIST | 

SET_RDESCR LI fe TRUE LENGTH 
PUT "BIT [ CSR ‘s. BUF LENGTH, KK Te 


XMIT RCV_PACKET ( ); 
CHK. RINT _STATUS ( (ONE ); 
“TOP TABLE [ CSR ] = ; 
CHK_RIXI ‘ses ( ZERO aril 
-IOP_TABLE { CSR ] = ZERO; 


Ot as { . INDEX J; 


VAX-11 Bliss-16 V4.0 
DISK2: (SCODA.QNA. ZQNA}ZONAS. BLI;2 


CHK_CSR_STATUS ( CSR_STATUS, CSR_MASK ); ! 0'100220', 0'100220' 


Ss 


! “CHECK IF TRANSMIT BUFFER DESCRIPTOR LISTS PROPERLY VOLIDATED 


Ye wien" DeIsy (0 inoe IN WeLEN } Negy .1D16 [ . INDEX 
“XAT “D trt re eX, Wel EN } AND #0'140000' NEQU #0’ 140000' 
BEGIN 


= GET_BIT ( CSR_ALL ) 
PRINTS MSG59 ); 





PUMA AIAN INNA AMAA AMAA AAA AAS AAA AA AIO ODD HO UNUIUIUIUIUIUIUIUIUU onn 








SEQ 185 
CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09  VAX-11 Bliss-16 v4.0-579 Page 98 
TEST 16 - ODD PACKET TEST 27-Mar-1986 07:33:50  DISK2:{SCODA.QNA.ZQNA]ZQNA3.BLI;2 (38) 
PRINTB ( MSG49 ); 
PRINTB ( 16, any _D_LIST INDEX .XMIT_D_LIST [ .INDEX, W_LEN J] ); 
ERRDF ( 1 , ERRORSREPORT 3;° 


INCR INDEX FROM 0 TO 5 DO 
XMIT_D_LIST { . INDEX, W_LEN ] = .XMIT_D_LIST [ . INDEX + 18, W_LEN ]; 


CHK_XMIT_ STATUS € XFLG_STATUS, XWD12_STATUS ); ! 0'140000', 0/000400' 
CHK_RCV_STATUS ( RFLG_STATUS, RWD13_STATUS ); ! 0' 140000’ » 0'000000' 


INCR INDEX FROM O TO 5 DO 
IF_.XMIT_BUFFER [ .INDEX ] NEQU .RCV_BUFFER [ .INDEX ] 


BEGIN 
CSR_WORD = GET_BIT ( CSR_ALL ); 
PRINTB ( MSG59°); 
PRINTB ( MSG51 ); 
PRINTB ( MeeeO, "RCV_BUFFER [ . INDEX , .XMIT_BUFFER ( .INDEX J, . INDEX ); 
ERRDF ( 1603, MSGOO, ERRORS$REPORT ); 
; 
ENDSUB ; 
SET_DEQNA ( ); 
CLR_BUFFERS ( 32 ); 
_LENGTH = 16; 
“LENGTH = - ( .RBUF_LENGTH ¢ -1 ); 
INDEX FROM 0 TO 


BGNSUB ; 
INCR INDEX FROM O TO 43 DO 
XMIT_D_LIST » WLEN ] = .7TD16 { .INDEX ]; 


[ 

MIT_D LIST [ 19, WLEN J = V; 
XMIT“D“LIST { 25° W ‘ 
SET_RDESCR_LIST ( .XBUF_L 
PUT-BIT { CSR. LB. INKL 
XMIT_AND_RCV_PACKET ( J 
CHK_RIXI-STATUS ¢ ZERO. 5, 
CHK_CSR_STATUS ( CSR_STATUS, CSR_MASK ); ! 0'100220', 0'100220° 


XMIT_D_LIST [ 19, WLLEN ] = VE; 
XMIT_D_LIST [ 25, W_LEN J = E; 


tee 


! CHECK IF TRANSMIT BUFFER DESCRIPTOR LISTS PROPERLY VOLIDATED 


INCR INDEX FROM 0 TO 35 DO 


SEQ 186 


ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 Page 99 
VO1.O TEST 16 - ODD PACKET TEST 27-Mar-1986 07:33:50 DISK2:(SCODA.QNA. ZQNA]ZQNA3.BLI;2 (38) 
s 3671 § IF janet O.LIST [ . WLEN } ea) . 1016 ‘ . INDEX 

; 3672 2 .XMIT_D trét’t EN EX W_LEN } AND #0'140000' NEQU #0’ 140000’ 
; 3674 6 

; 3675 6 SR_WORD = ants _BIT ( CSR_ALL ); 

; 3676 6 BRINTE 9°); 

; 3677 6 PRINTB HecaS ); 

; 3678 6 PRINTB ( aegis. XMIT_D LIST, .INDEX, .XMIT_D_LIST [ .INDEX, W_LEN J] ); 
; 3679 6 ERRDF ( 1604, , ERRORSREPORT 3; 

; 3680 5 3 

; 3681 5 

; 3682 5 INCR INDEX FROM O TO S DO 

; a @ XMIT_D_LIST { .INDEX, WLEN ] = .XMIT_D_LIST [ .INDEX + 36, W_LEN ]; 
; 3684 

; 3685 5 CHK _XMIT_STATUS ( XFLG_STATUS, XWD12_STATUS ); ! 0'140000', 0000400’ 

; =e : CHK_RCV_STATUS ( RFLG_STATUS, RWD1 _STATUS ); : 0' 140000’ , 0'020000' 

; 

; 3688 5 

; 3689 5 INCR INDEX FROM O TO 5 DO 

; 3690 5 IF_.XMIT_BUFFER [ .INDEX ] NEQU .RCV_BUFFER [ .INDEX ]} 

; 3691 5 THEN 

; 3692 6 BEGIN 

; 3693 6 CSR_WORD = GET_BIT ( CSR_ALL ); 

; 3694 6 PRINTB ( MSG59 ); 

; 3695 6 aa th € MSG51 ); 

; 96 6 INTB € MSGSO, .RCV_BUFFER [ .INDEX ], .XMIT_BUFFER { .INDEX J], . INDEX ); 
; 3697 6 € 1605, MSGOO, ERROR$REPORT ); 

; 3698 5 ; 

; 3699 5 

; 3700 5 INCR INDEX FROM 6 TO 9 DO 

s gma S IF .RCV_BUFFER [ .INDEX ] NEQU ZERO 

; 3702 5 THEN 

; 3703 6 BEGIN 

; 3704 6 CSR_WORD = GET_BIT ( CSR_ALL ); 

; 3705 6 PRINTB € MSG59 ); 

; 3706 6 PRINTB ( i i; 

; 3707 6 PRINTB ( MSGSO, .RCV_BUFFER INDEX J], ZERO, . INDEX ); 

; 3708 6 ERRDF ( 1606, MSGOO, ERROR$ T ); 

; 3709 5 END; 

s 3720 S$ 

s saz §S INCR INDEX FROM O TO 5 DO 

; wa Ss IF_.RCV_BUFFER [ .INDEX + 10 ] NEQU .TARGET_ADR [ .INDEX + 114 ] 

|; wae THEN 

i His & STEER WORD = GETBIT ( CSRALL ) 

; = : 

; 3716 6 SRINTB TS 9); 

:; 3717 6 PRINTB t Meeei ); 

; 3718 6 PRINTB € MSGSO, .RCV_BUFFER [ .INDEX ], .XMIT_BUFFER [ . INDEX ], .INDEX ); 
; 3719 6 € 1607, MSGOO, ERRORSREPORT ); 

5 5 END; 

; 3 

; 3 

; 1 


ENDTST; 
PR ee OREM A NEES Se 





SEQ 187 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 v4.0-579 Page 100 
V01.0 TEST 16 - ODD PACKET TEST 27-Mar-1986 07:33:50  DISK2:{SCODA.QNA.ZQNA]ZQNA3.BLI;2 (38) 
.SBTTL $T16 TEST 16 - ODD PACKET TEST 

000000 004137 0000006 $T16: JSR Ri, $SAVE2 3518 
000004 162706 000014 SUB #14, 
000010 004737 JSR PC RESET. DEQNA 3571 
000014 004737 JSR PC; PREP .FOR. SETUP ; 3572 
000020 012701 000001 MOV #1.R1 ; *, INDEX1 3573 
000024 010146 1$: MOV R1. -(SP) ; INDEX1, « 3574 
000026 012746 000023 MOV $25, -(SP) 
000032 004737 000000G JSR PC, WRT. STATION. ADR 
000036 022626 CMP (SP)+,(SP)+ 
000040 005201 INC ; INDEX1 3573 
000042 020127 000016 CMP R1, #16 ; INDEX1,* 
000046 003766 BLE 1$ 
000050 104402 2¢: TRAP 39D 3574 
000052 012746 000202 MOV #202, -(SP) 3577 
000056 004737 JSR PC, XMIT. SETUP. PACKET 
000062 005726 TST (SP)+ ; 3574 
000064 104467 TRAP 3s 667 ; 
000066 006000 ROR RO 
000070 103767 BLO 2$ 
000072 012737 000006 0000006 MOV #6 , RBUF .LENGTH 3580 
000100 012700 000006 MOV #6 RO 3581 
000104 ASR RO 
000106 NEG RO 
000110 010037 0000006 MOV RO, XBUF . LENGTH 
000114 012746 000040 MOV #40, -(SP) ; 3588 
000 004737 0000006 JSR PC, CLR. BUFFERS 
000 004737 0000006 JSR PC. CLR.DESCR ; 3589 
000130 CLR RO ; INDEX 3590 
000132 110060 0000006 3$: MOVB = RO, XMIT .BUFFER(RO) ; INDEX, *C INDEX) 3591 
000136 005200 INC RO ; INDEX 3590 
000140 7 000005 CMP RO, #5 ; INDEX, « 
000144 003772 BLE 34 
000146 104402 4$: TRAP Os ; 3591 
000150 CLR RO ; INDEX 3594 
000 016060 0000006 0000006 S$: MOV TD16(RO),XMIT.D.LISTCRO) ; *CINDEX), #C INDEX) 3595 
000160 062700 000002 ADD #2,RO ; &, INDEX 3594 
000164 020027 000126 CMP RO, #126 ; INDEX, « 
000170 003770 BLE 
000172 013716 0000006 MOV XBUF .LENGTH, (SP) ; 3596 
000176 012746 120000 MOV “ -(SP 
000202 004737 000000G JSR SET .RDESCR.LIST 
000206 013700 000000G MOV REG. ADR, RO ; 3597 
000212 042760 001400 000016 BIC #1400, 16(RO) 
000220 004737 JSR PC, XMIT. AND..RCV.PACKET : 3599 
000224 012716 000001 MOV : 3600 
000230 004737 JSR PC Cha RIXI . STATUS 
000234 012777 000001 000016G MOV #1,9I0P. TABLE+16 ; 3601 
000242 005016 CLR : 3602 
000244 004737 JSR PC, CHK. RIXI.STATUS 

005077 0000166 CLR @I0P. TABLE+16 ; 3603 





012716 
01 
004737 
00500 


CZQNAEO DEQNA FUNCTIONAL TEST 
TEST 16 - ODD PACKET TEST 


100220 
000000G 
6$: 


000014 


27-Mar-1986 07:36:09 
27-Mar-1986 07:33:50 
ee rh te: 


a6 SP) 

Be. OP CK ese. STATUS 

RB. 

RMIT. D.LISTCR1),TD16(R1) 


XMIT.D.LISTCR1),RO 
#37777 ,RO 
40000 


=e: » (SP) 
.D.LIST, -CSP) 
SP) 





SEQ 188 
VAX-11 Bliss-16 V4.0-579 
DISK2: (SCODA.QNA.ZQNA]ZQNA3.BLI;2 


; *, TMP .LOCATION 
; TMP.LOCATION, * 
é 


H INDEX, * 


; INDEX, 


SEO en RR GRE RELL EO AR RS RE TEE GROOT ERIE 


SEQ 189 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:0 VAX-11 Bliss-16 V4.0-579 Page 102 
V01.0 TEST 16 - ODD PACKET TEST 27-Mar-1986 07:33: ‘30 DISK2:(SCODA.QNA. ZQNATZONAS. BLI;2 (38) 
000522 005001 CLR Ri ; INDEX 3630 
000524 126161 0000006 0000006 9$: XMIT.BUFFER(R1),RCV.BUFFER(R1> ; #C INDEX), *#C INDEX) 3631 
000532 001447 BEQ 10$ 
000534 013700 000000G MOV REG. ADR, RO 3634 
016066 000016 000014 MOV 16(RO),14(SP) ; *, TMP LOCATION 
016637 000014 000000G MOV i 0 ; THP.LOCATION, « 
000554 012716 000000G MOV OHSG59, (SP ; 3635 
012746 000001 MOV 1.-(50) 
010600 MOV SPR ; SP,* 
000566 104414 TRAP 3s «14 
000570 012716 000000G MOV #MSG51, (SP) 3636 
000574 012746 000001 MOV #1,-(SP) 
000600 010600 MOV SP ,RO ; SP,* 
000602 104414 TRAP 3s «14 
000604 010116 MOV Ri, (SP) ; INDEX, « 3637 
000606 005046 CLR . 
000610 116116 0000006 MOVB © XMIT .BUFFER(R1), (SP) ; *C INDEX), « 
000614 CLR SP) 
000616 116116 0000006 MOVB = RCV. BUFFERCR1), (SP) ; *CINDEX), * 
000622 746 0000006 MOV #MSG50, -(SP) 
000626 012746 000004 MOV ,-(SP 
000632 010600 MOV SP .RO ; SP,« 
000634 104414 TRAP 4 
000636 104455 TRAP so 3638 
000640 003103 .WORD 3103 
000642 “ WORD 
000644 -WORD ERROR$REPORT 
000646 062706 000014 ADD #14,SP ; 3633 
000652 005201 10$: INC Ri ; INDEX 3630 
000654 020127 000005 CMP R1, 85 ; INDEX, « 
000660 003721 BLE 9$ 
000662 706 000010 ADD #10,SP ; 3591 
000666 104467 TRAP 67 ; 3639 
000670 006000 RO 
000672 103002 BHIS i$ 
000674 000137 014376’ 4$ 
000700 004737 0000006 11$: JSR PC RESET .DEQNA ; 3642 
000704 012716 000040 MOV #40, (SP) ; 3643 
000710 004737 000000G JSR PC, CLR. BUFFERS 
000714 012737 000020 0000006 MOV #20, RBUF .LENGTH ; 3644 
000722 012700 000020 MOV #20 ,RO ; 3645 
000726 ASR RO 
000730 005400 NEG RO 
000732 010037 0000006 MOV RO, XBUF .LENGTH 
000736 005000 CLR RO ; INDEX 3646 
000740 110060 0000006 12$:  MOVB RO,XMIT.BUFFER(RO) ; INDEX, *C INDEX) 3647 
000744 005200 INC RO ; INDEX 3646 
000746 000023 RO, #23 ; INDEX, « 
000752 003772 BLE 12$ 
000754 104402 13$: TRAP 2 : 3647 
000756 005000 CLR RO ; INDEX 3650 
000760 016060 0000006 0000006 14$: MOV TD16(RO), XMIT.D.LISTCRO) ; *CINDEX), *C INDEX) 3651 
000766 062700 000002 ADD #2',RO ; &, INDEX 3650 








SEQ 190 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09  VAX-11 Bliss-16 v4.0-579 Page 103 
V01.0 TEST 16 - ODD PACKET TEST 27-Mar-1986 07:33:50  DISK2:[SCODA.QNA.ZQNA}ZQNA3.BLI;2 (38) 
000772 7 000126 CMP RO, #126 ; INDEX, « 
000776 003770 BLE 14 4$ 
001000 012737 100000 0000466 MOV #-100000, XMIT.D.LIS1+46 ; 3653 
001006 012737 040000 0000626 MOV #40000, XMIT.D. bist +62 ; 3654 
001014 013716 0000006 MOV XBUF . LENGTH , 3656 
001020 012746 120000 MOV -60000 
1024 004737 000000G JSR PC 0000,-($8) 
001030 013700 0000006 MOV REG. ADR, RO ; 3657 
001034 042750 001400 000016 BIC #1400, 16¢RO 
001042 052760 001000 000016 BIS 000, 16(RO 
001050 004737 JSR C,XMIT.AND.RCV.PACKET 3658 
001054 005016 CLR cS ) , 3659 
001056 004737 JSR PC, CHK .RIXI. STATUS 
001062 012716 100220 MOV #-77560, (SP) ; 3661 
001066 O11 MOV SP), -(SP) 
001070 004737 000000G JSR PC, CHK.CSR. STATUS 
001074 012737 120000 0000466 MOV #-60000, XMIT.D.LIST+46 3663 
1102 012737 020000 0000626 MOV #20000, XMIT.D.LIST+62 , 3664 
001110 CLR ; INDEX 3670 
1112 010201 15$: MOV R2,R1 ; INDEX, « 3671 
001114 006301 ASL 1 
001116 026161 0000006 0000006 CMP XMIT.D.LIST(R1), TOL6(R1L) 
1 001454 BEQ $ 
1 016100 MOV XMIT.D.LIST(R1),RO 3672 
001132 700 037777 BIC #37777 RO 
001136 7 CMP RO, #-40000 
001142 001445 BEQ 16$ 
001144 013700 MOV REG. ADR,RO 3675 
001150 016066 000016 000012 MOV 16(RO), 12(SP) ; *, TMP.LOCATION 
001156 016637 000012 MOV 12(¢SP), CSR. WORD ; TMP.LOCATION, « 
001164 012716 MOV #4SG59. (SP) ; 3676 
001170 012746 000001 MOV #1,-(SP) 
001174 O1 MOV SP.RO ; SP, 
001176 104414 TRAP = 14 
1200 012716 MOV #MSG49, (SP) ; 3677 
1204 012746 000001 MOV #1,-(SP) 
001210 010600 MOV SP RO ; SP, 
1212 104414 TRAP 3s «14 
001214 016116 0000006 MOV XMIT.D.LISTCRL), (SP) ; 3678 
001220 Ol MOV Re, -(SP) ; INDEX,* 
001222 012746 0000006 MOV 
1226 
; SP »* 
; 367° 
' 3674 
; INDEX 3670 
; INDEX,« 





SEQ 191 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09  VAX-11 Bliss-16 v4.0-579 Page 104 
V01.0 TEST 16 - ODD PACKET TEST 27-Mar-1986 07:33:50  DISK2:{SCODA.QNA.ZQNA]ZQNA3.BLI;2 (38) 
1 2 CLR R2 ; INDEX 3682 
001270 010201 17$: MOV R2,R1 ; INDEX, « 3683 
001272 006301 ASL R 
001274 010200 MOV R2,RO ; INDEX, « 
001276 300 ASL 
1 016061 0001106 0000006 MOV XMIT.D.LIST+110(RO),XMIT.D.LISTCR1) 
1306 005202 INC Re ; INDEX 3682 
001310 227 000005 CMP R2, 05 ; INDEX, +# 
001314 003765 BLE 17% 
001316 012716 140000 MOV #-40000, (SP) 3685 
1322 012746 000400 MOV ,-(SP) 
001326 004737 000000G JSR PC, CHK. XMIT. STATUS 
001332 012716 140000 MOV #-40000, ; 3686 
001336 012746 020000 MOV é ,-(SP 
001342 004737 000000G JSR PC, CHK. RCV, STATUS 
001346 1 CLR ; INDEX 3689 
001350 126161 0000006 0000006 18$:  CMPB XMIT.BUFFER(R1),RCV.BUFFER(R1) ; #C INDEX), *C INDEX) 3690 
001356 001447 BEQ 19$ 
001360 013700 MOV G.ADR,RO 3693 
1364 016066 000016 000020 MOV 16(RO),20(SP) ; *, TMP. LOCATION 
001372 016637 000020 000000G MOV SP). CSR.WORD ; THP.LOCATION, + 
1400 012716 MOV 9. (SP) ; 3694 
001404 012746 000001 MOV #1,-(SP) 
001410 010600 MOV : ; SP,* 
1412 104414 TRAP 
001414 012716 MOV #MSG51, (SP) ; 3695 
001420 012746 000001 MOV (SP) 
001424 01 MOV “RO ; SP,« 
1426 10441 TRAP «14 
001430 010116 MOV R1, (SP) ; INDEX,« 3696 
001432 CLR ‘ 
001434 116116 000000G MOVB § XMIT.BUFFERCR1),(SP) ; *CINDEX),« 
001440 CLR -(SP) 
001442 116116 0000006 MOVB = RCV. BUFFER(R1), (SP) ; *CINDEX),« 
001446 012746 000000G MOV #SG50, -(SP) 
001452 012746 000004 MOV $4, -(SP) 
001456 01 MOV SP, ; SP,* 
1460 104414 TRAP 3-14 
001462 104455 TRAP 3s ; 3697 
001464 003105 .WORD 3105 
001466 “ WORD 
001470 “WORD ERRORSREPORT 
001472 062706 000014 ADD $14 ,SP ; 3692 
001476 005201 19$: INC Ri ; INDEX 3689 
001500 020127 000005 CMP R1,45 ; INDEX, * 
901806 os761 000006 a + INDEX 3700 
001512 105761 000000G 20$:  TSTB RCV.BUFFERCR1) ; #C INDEX) 3701 
001516 001445 BEQ $ 
001520 013700 000000G MOV G.ADR,RO ; 3704 
001524 016066 000016 000022 MOV 16(RO),22(SP) ; %, TMP.LOCATION 
001532 016637 000022 MOV SP),CSR ; TMP.LOCATION, * 
001540 012716 000000G MOV #MSG59, (SP) : 3705 





CZQNAEO DEQNA FUNCTIONAL TEST 
TEST 16 - ODD PACKET TEST 


012746 000001 MOV 
010600 MOV 
104414 TRAP 
012716 000000G MOV 
012746 000001 MOV 
0600 MOV 
14 TRAP 
010116 MOV 
CLR 
CLR 
116116 000000G MOVB 
0127 000000G MOV 
012746 000004 MOV 
010600 MOV 
104414 TRAP 
104455 TRAP 
003106 . WORD 
. WORD 
. WORD 
062706 000014 ADD 
1 21s: INC 
020127 000011 CMP 
i si 
126161 000012G 000162G 22$ CMPB 
001447 BEQ 
013700 MOV 
O01 000016 000024 MOV 
01 000024 MOV 
012716 MOV 
012746 000001 MOV 
010600 MOV 
104414 TRAP 
012716 MOV 
012746 000001 MOV 
O01 MOV 
1044 TRAP 
010116 MOV 
CLR 
116116 000000G an 
116116 000000G MOVB 
012 000000G MOV 
012746 000004 MOV 
O01 MOV 
104414 TRAP 
104455 TRAP 
003107 . WORD 
. WORD 
062706 000014 ADD 
i 23$: INC 


SEQ 19 

27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 viene Page 105 

27-Mar-1986 07:33:50 DISK2: (SCODA.QNA.ZQNA)ZQNA3.BLI;2 (38) 
#1,-(CSP) 
ated ‘ SP ,* 
#MSG51, (SP) 3706 
#1, -(SP) ’ 
4° ; SP ,* 
R1,CSP) INDEX, « 3707 
“$38 : 
RCV.BUFFERCR1), (SP) ; *CINDEX),* 
#MSG50, -( SP) 
#4,-(SP) 
SP ,RO ; SP ,* 
14 
55 ; 3708 
3106 
ERRORSREPORT 
#14,SP ' 3703 
Ri ; INDEX 3700 
ee ; INDEX,« 
Ri INDEX 3711 
RCV.BUFFER+12(R1), TARGET. ADR+162¢R1) ; 
o3¢ ; *C INDEX), *C INDEX) 3712 
REG. 3715 
TECROD BacSP) *, TMP .LOCATION 
24(SP),CSR.WORD ; TMP.LOCATION, « 

9, (SP) 3 3716 

#1,-(SP) 
7° ° SP ,* 
#MSG51, (SP) ; 3717 
eee} 
ig : SP ,* 
si ; INDEX,* 3718 
oc aie pata binal ; *CINDEX),* 
RCV .BUFFERCR1), (SP) ; *C INDEX), 
#MSG50, -( SP) 
#4, -(SP) 
Aca ; SP ,* 
3107 
ERROR $KEPORT 
#14,SP ; 3714 
Ri ; INDEX 3711 





002024 


; Routine Size: 


CZQNAEO DEQNA FUNCTIONAL TEST 
TEST 16 - ODD PACKET TEST 


000005 
000010 


015204' 


523 words, 


24s: 
RTS 


Routine Base: aes 
22 words 


; Maximum stack depth per invocation: 


000010 
000012 


; Routine Size: 


004737 014230' 
104466 
006000 
103773 
000207 


; 3724 1 


. SBTTL 
T16: 
1$: JSR 
TRAP 
ROR 
BLO 
RTS 


27-Mar-1986 6 


:36:09 
27-Mar-1986 50 


7 
7:33: 


+ 14230 


SEQ 193 
VAX-11 Bliss-16 V4.0-579 
DISK2: [SCODA.QNA.ZQNA]ZQNA3.BLI;2 


; INDEX,+ 


T16 TEST 16 - ODD PACKET TEST 


PC, $T16 
66 


RO 
1$ 
PC 


words, Routine Base: ABSCODE$ + 16256 
; Maximum stack coll per invocation: 2 words 


Page 106 


(38) 


3647 
3720 


3518 


3721 


> 
: 
‘ 
; 
. 
: 
; 
; 
. 
: 
; 
; 
; 
‘ 
; 
; 
: 
+ 
; 
, 
; 
+ 
: 
; 
; 
; 
‘ 
3 
. 
. 
; 
; 
a 
; 
; 
. 
. 
4 
; 
‘ 
. 
+ 
. 
i 
; 
. 
a 
. 
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iassseaeataeceuedaueaesy 
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SEQ 194 





CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX- iss- - 
TEST 17 - STATION ADDRESS TEST 27-Mar-1986 07:33:50 DISK2:( SCODA. GNA ZQNA]ZENAS,BLI 2 Powe 395 
sSBTTL ‘TEST 17 - STATION ADDRESS TEST’ 
™ 
TEST 17: STATION ADDRESS TEST 
: DESCRIPTION: 
: This test verifies that DEQNA accepts only packets with legitimate 
; ‘multicast’ and ‘non-multicast' addresses i hose wi 
illegitimate ‘multicast’ end inee-dedibtanel’ oldbenoen. — 
: Station Address RAM is loaded with a set of Target Addresse 
Hode bits. Target Addresses in and out of the eet are used to. 
oopback packets. operator specifies on error 
: —s re-executes the code that detected the orver until tC is 
a 
: Hardware tested: Address Filter Circuitry 
: Set of ‘multicast’ addresses in HEXADECIMAL: 
; 01-00-00-00-00-00 
: AB-AA-AA-AA-AA-AA 
: 39-55-55-55-55-55 
: FF -FF -FF -FF -FF -FF 
: Walking 1 
Processing: 
BEGIN 

eee ein , 

select internal loopback mode 

Toad Static “Kddress RAM with ‘mul 

ion wi ticast’' addresses 
REPEAT for each emented and i ‘ 
Bag = uncomplemented ‘multicast 


o™ error message if not inhibited 


1 
- cal gpompere_packets 





ee ee ee ee ee ee OSS SESE OHHH Oneeeetheehen 








SUA Ee Be Be Be Be BNA EDD Eo NI Be Be BO Be IN OF I ITU ON Od 8 Ut Gt Ga 





SEQ 195 
7:36:09 VAX-11 Bliss-16 V4.0-579 Page 108 
}ZQNA3.BLI;2 (40) 


CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 0 & 
TEST 17 - STATION ADDRESS TEST 27-Mar-1986 07:33:50 DISK2: [SCODA.QNA.ZQNA 


BGNTST; 


See 


: RESET DEQNA AND INITIALIZE ETHERNET STATION ADDRESS RAM TO ALL MULTICAST 


PREP_FOR SETUP ( ); 
1 FROM 6 TO 19 DO 
WRT_STATION_ADR ( .INDEXi - 5, .INDEX1 ); 


BGNSUB ; 

XMIT_SETUP_PACKET ( N_MODE ); 
ENDSUB ; 
4 


i "NOW LOOPBACK 6 BYTE PACKETS AND CHECK IF THEY ARE RECEIVED PROPERLY 


RBUF_LENGTH = 6; 
XBUF_LENGTH = - ( .RBUF_LENGTH t -1 ); 


INCR INDEX1 FROM 6 TO 19 DO 
WRT_STATION_ADR ( ZERO, .INDEX1 ); 


BGNSUB ; 
XMIT_ILOOP_PACKET ( ZERO ); 
ENDSUB; 


INCR INDEX2 FROM 0 TO 5 DO 
BEGIN 


XMIT_BUFFER { .INDEX2 ] = ( -.XMIT_BUFFER [ .INDEX2 ] ) - 1; 
eng ARGET_ADR [ .INDEX2 ] = .XMIT_BUFFER [ .INDEX2 ]; 
i 


BGNSUB ; 

XMIT_ILOOP_PACKET ( ONE ); 

SUB ; 
; 


TEMP4 = 14 
INCR INDEXS FROM 0 TO 3 DO 
IF .INDEX3 EQLU 3 

THEN 





WALKING BIT ( ZERO, .INDEX4 + ( .INDEX3 *« 14) - 1, 5 ); 








i 


000014 


PANAAAARUNSSUUUUS & RUINS PP ah aannau 





SEQ 196 


CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 Page 109 
TEST 17 - STATION ADDRESS TEST 27-Mar-1986 07:33:50  DISK2:(SCODA.QNA.ZQNA)ZQNA3.BLI;2 (40) 
WRT_STATION_ADR ( .INDEX4, ZERO ); 
END; 
BGNSUB ; 
XMIT_SETUP_PACKET ( N_MODE ); 
ENDSUB; 
RBUF_LENGTH = 
XBUF_LENGTH = - y .RBUF_LENGTH t -1 ); 
INCR INDEX4 FROM 1 TO .TEMP4 DO 
WALKING. BIT T € ZERO, .INDEX4 + ( .INDEX3 * 14) -1, 5); 
WRT STATION. ADR ( ZERO, ZERO ); 
BGNSUB ; 
XMIT_ILOOP_PACKET ( ZERO ); 
SUB ; 
; 
INCR INDEX2 FROM 0 TO 5 DO 
XMIT_BUFFER [ .INDEX2 ] = .XMIT_BUFFER [ .INDEX2 } ) - 1; 
TARGET_ADR [ .INDEX2 ]} = ert Bere .INDEX2 J; 
BGNSUB ; 
XMIT_ILOOP_PACKET ( ONE ); 
ENDSUB ; 
END; , 
INCR INDEX2 FROM 0 19, 5 Do 
TARGET_ADR [ .INDEX2 ] = ZERO; 
ENDTST; 
-SBTTL $T17 TEST 17 - STATION ADDRESS TEST 
Coo900s $Ti7: J oS ; era 
8 ° ; 
0000006 JSR PC, PREP.FOR. SETUP ; 3782 
000006 MOV #6,R1 ; *, INDEX 3783 
1$: oy! per ; INDEX1,* 
MOV Ri, RL. -(SP) ; INDEX1,# 
0000006 JSR PC Mr T STATION. ADR 
INC Ri ; INDEX1 3783 
000023 CMP R1, #23 ; INDEX1,* 
BLE 1$ 
2$: TRAP = 2 ; 3784 
000200 MOV #200, -(SP) ; 3787 
0000006 JSR PC, XMIT. SETUP . PACKET 
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V01.0 TEST 17 - STATION ADDRESS TEST 27-Mar-1986 07:33:50  DISK2:(SCODA.QNA.ZQNA]ZQNA3.BLI;2 (40 

000060 005726 TST (SP)-+ 3784 

000062 104467 TRAP 3s 667 3787 

000064 RO 

000066 103767 BLO 2$ 

000070 012737 000006 0000006 MOV #6, RBUF . LENGTH 3794 

000076 012700 000006 MOV #6, RO ; 3795 

000102 ASR RO 

000104 NEG RO 

000106 010037 0000006 MOV RO, XBUF .LENGTH 

000112 012702 000006 MOV #6 .R2 ; *, INDEX1 3797 

000116 005046 34: CLR -(§P) ; 3799 

000120 010246 MOV R2,-(SP) ; INDEX1,« 

000122 004737 0000006 JSR PC WRT. STATION. ADR 

000126 104402 4$: TRAP 2 

000130 005016 CLR (SP) 3802 

000132 004737 0000006 JSR PC, XMIT. ILOOP. PACKET 

000136 104467 TRAP = 67 

000140 RO 

000142 103771 BLO 4$ 

000144 005000 CLR RO ; INDEX2 3805 

000146 012701 0000006 S$: MOV #XMIT . BUFFER,R1 3807 

000152 060001 ADD RO,R1 ; INDEX2,* 

177777 
; *, *CINDEX2) 3808 
; INDEX2 3805 
3 INDEX2, * 
; 3809 
3812 
; 3798 
; INDEX 3797 
; INDEX1,* 
INDEX3 3817 

3819 
3821 
=: 3822 
3823 
3824 
; INDEX3,* 3826 
; INDEX4 3824 


000000G 
000010 


000200 
000000G 


CZQNAEO DEQNA FUNCTIONAL TEST 
TEST 17 - STATION ADDRESS TEST 


9$: 


10$: 


11$: 


12$: 


13$: 


14$: 


15$: 


27-Mar-1986 07: 
27-Mar-1986 07:33: 


-( 

PC, WRT. STATION. ADR 
#10, SP 

R3,R2 

93 

2 
#200 


PC OXHIT SETUP . PACKET 
(SP)+ | 


R 

#XMIT .BUFFER ,RO 
R1,RO 

#-1 »R2 


VAX-11 Bliss-16 V4.0-579 


; 
; INDEX4 
; INDEX4,+« 


; 
; INDEX4 


; INDEX4,+ 


SEQ 198 
DISK2: [SCODA.QNA.ZQNA JZQNA3.BLI;2 


; 
; INDEX4,+« 
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(40) 
3826 


3828 
3831 


3828 
3831 


3847 
3849 





; Routine Size: 


02002 
003772 
000207 


© DEQNA FUNCTIONAL TEST 


000003 


000005 


203 words, 


CZQNAEO 
TEST 17 - STATION ADDRESS TEST 


vB 
16$: TRAP 
MO 


17$: CLRB 
INC 


BLE 
RTS 
Routine Base: ABSCODES 
11 words 


; Maximum stack depth per invocation: 


000010 
000012 


; Routine Size: 
; Maximum stack depth per invocation: 


004737 016272' 


104466 
006000 
103773 
000207 


; 3862 i 


6 words, 


. SBTTL 
Ti7: 
1$: JSR 
TRAP 
ROR 
BLO 
RTS 


27-Mar-1986 07:36:09 
27-Mar-1986 07; 33:50 


» CRO) 
R2, TARGET. ADR(R1) 


#1,-(SP) 
PC, XMIT.ILOOP.PACKET 
(SP)+ 


SEQ 199 
VAX 11 Bliss-16 V4.0-579 
DISK2: [SCODA.QNA.ZQNA]ZQNA3.BLI;2 


; *,*CINDEX2) 


; INDEX2 
; INDEX2,* 


; INDEX3 

; INDEX3,* 
; INDEX2 

; *CINDEX2) 
; INDEX2 

; INDEX2, « 


T17 TEST 17 - STATION ADDRESS TEST 


PC,$T17 
66 


RO 
1$ 
PC 


Routine Base: ABSCODE$ + 17120 
rds 


2 wo 


Page 112 
1 40) 


3723 





1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 





SEQ 200 
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TEST 18 - ALL MULTICAST STATION ADDRESS TEST 27-Mar-1986 07:33:50 DISK2: [SCODA.QNA.ZQNA)ZQNA3 .BLI;2 (41) 


sSBTTL ‘TEST 18 - ALL MULTICAST STATION ADDRESS TEST’ 


TEST 18: ALL MULTICAST STATION ADDRESS TEST 


DESCRIPTION: 


This test vefifies that DEQNA recognizes ‘all multicast’ addresses of 
the node and discards loopback packets with non-enabled addresses. 

If the operator specifies loop on error, the program re-executes the 
code that detected the error until tC is entered. 


Hardware tested: All Multicast Addressing 
18051 Microprocessor 
s Filter Circuitry 


Set of ‘all multicast’ addresses: 


DEQNA Physical Addr FF -FF-FF -FF-FF-FF 
AA-00-00-00-00-00 55-55-55-55-55-55 
AA-00-02-AA-AA-AA AA-AA-AA-AA-AA-AA 
AA-00-05-55-55-55 01-00-00-00-00-00 
AA-00-04-FF -FF-FF AB-AA-AA-AA-AA-AA 
AA-00-04-00-00-00 FF -00-01-02-03-04 
AA-00-04-18-81-18 00-F4-FA-44-44-55 
Processing 
BEGIN 


set Se 
load Station Address RAM with ‘all multicast’ addresses 
REPEAT for ‘all multicast’ addresses in and out of set 

load ‘all multicast’ address of the packet 

disable receiver 

transmit loopback packet 

enable receiver 

check for expected loopback status 

IF error 

THEN 

point error message if not inhibited 


call compare_packets 
a ated 





BGNSUB ; 
XMIT_ILOOP_PACKET ( ONE ); 
ENDSUB; 
END; 


INCR INDEX2 FROM 0 TO 5 DO 
TARGET_ADR [ .INDEX2 ] = ZERO; 


SEQ 201 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 Page 114 
v01.0 TEST 18 - ALL MULTICAST STATION ADDRESS TEST 27-Mar-1986 07:33:50 DISK2:(SCODA.QNA.ZQNA ]ZQNA3. BLI;2 (42) 
:; 3910 3 BGNTST; 
$3012 3 
3 foe 
; 3913 3 ! RESET DEQNA AND INITIALIZE ETHERNET STATION ADDRESS RAM IF EXECUTING 
; 3914 3 ! TESTS IN EXTERNAL LOOPBACK MODE. 
> maa Ss !-- 
: 3916 3 
; 3917 3 RESET_DEQNA ( ) 
; 63918 3 “FOR_SETUP ¢ ); 
; 3919 3 INCR INDEX1 FROM 1 TO 13 
; 3920 3 WRT_STATION_ADR ( .INDEX1, .INDEX1 ); 
; 3921 3 WRT_STATION_ADR ( 14, PHA_INDEX ); 
5 ae Ss 
; 3923 5 BGNSUB ; 
; 3924 5 XMIT_SETUP_PACKET ( A_MODE ); 
; 3925 3 ENDSUB ; 
:; 3926 3 
; 3927 3 lee 
; 350 : NOW LOOPBACK 6 BYTE PACKETS AND CHECK IF THEY ARE RECEIVED PROPERLY 
3 !.. 
s 3350 3S 
; a Us RBUF_LENGTH = 6; 
$ sane : XBUF_LENGTH = - ( .RBUF_LENGTH t -1 ); 
; 3934 3 INCR INDEX FROM 6 TO 19 DO 
; 3935 4 N 
; 3936 4 WRT_STATION_ADR ( ZERO, .INDEX ); 
; 3937 4 
; 3938 6 BGNSUB ; 
; 3939 6 XMIT_ILOOP_PACKET ( ZERO ); 
; 3940 4 ENDSUB ; 
; 3941 4 
; 3942 4 INCR INDEX2 FROM O TO 5 DO 
Joan “WHET BUFFER { -NDEX2 INDEX? ] = ( - NUTT BUFFER [| .INDEX2 ]) - 1 
: = - 1; 
; 3945 5 aa _ADR [ .INDEX2 ] = T_BUFFER [ .INDEX2 }; 
; 3946 4 
; 3947 4 
; 3948 4 XMIT_ BUFFER [ ZERO ] = .XMIT_BUFFER [ ZERO ] AND #0'177774'; 
; ill TARGET T_ADR { ZERO ] = .XMIT_BUFFER [ ZERO ZERO J; 
; 
; 6 
; 6 
Be 
; 
; 3 
; 3 
; 3 
3 3 
; 3 
; i 


ENDTST; 
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TEST 18 - ALL MULTICAST STATION ADDRESS TEST 


000000G 
000000G 
000000G 
000001 
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27-Mar-1986 07:33:50  DISK2:(SCODA.QNA.ZQNA)ZQNA3.BLI;2 (42) 
-SBTTL $118 TEST 18 - ALL MULTICAST STATION ADDRESS TEST 
$718: JSR R1, $SAVE4 ; 3861 
JSR PC, RESET .DEQNA : 3917 
JSR »PREP .FOR. SETUP ; 3918 
MOV URL ; *, INDEX1 3919 
1$: MOV R1,-(SP) ; INDEX1,« 3920 
MOV Ri, -CSP) ; INDEX1,+« 
JSR PC WRT. STATION. ADR 
CMP ¢ )+,(SP)+ 
INC Ri ; INDEX1 3919 
CMP R1, #15 ; INDEX1,« 
BLE 1$ 
MOV #16,-(SP) ; 3921 
JSR PC,WRT. STATION. ADR 
2$: TRAP = 2 
MOV #201, (SP) ; 3924 
JSR PC, XMIT. SETUP. PACKET 
TRAP =s-« 67 
ROR RO 
BLO 2$ 
MOV #6, RBUF .LENGTH ; 3931 
MOV #6,RO ; 3932 
ASR RO 
NEG RO 
MOV RO, XBUF .LENGTH 
MOV #6,R2 ; *, INDEX 3934 
3$; CLR (SP) ™ 3936 
MOV R2,-(SP) ; INDEX, * 
JSR PC, WRT .STATION. ADR 
4$: TRAP soo 
CLR (SP) ; 3939 
JSR PC, XMIT. ILOOP. PACKET 
TRAP 67 
RO 
BLO 4$ 
CLR RO ; INDEX2 3942 
S$: MOV #XMIT .BUFFF ,R1 ; 3944 
ADD RO,R1 ; INDEX2,* 
MOV #-1,R3 
CLR R4 
BISB (R1),R4 
MOVB mF 
MOVB 3, TARGET. ADR(RO) ; *, #CINDEX2) 3945 
INC RO ; INDEX2 3942 
CMP RO, #5 ; INDEX2, * 
BLE 5$ 
BICB #3,XMIT.BUFFER ; 3948 
MOVB § XMIT. BUFFER, TARGET. ADR ; 3949 
6$: TRAP eo 3952 


MOV #1,(SP ) : 
JSR PC, XMIT.ILOOP.PACKET 





SEQ 203 
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VO1.0 TEST 18 - ALL MULTICAST STATION ADDRESS TEST 27-Mar-1986 07:33:50 DISK2: [SCODA.QNA. ZQNA}ZONAS. BLI;2 (42) 
000240 104467 TRAP 67 
000242 006000 ROR RO 
000244 103770 BLO 6$ 
000246 005726 TST (SP )+ ' 3935 
000250 INC R2 ; INDEX 3934 
000252 020227 000023 CMP R2,#23 ; INDEX,« 
000256 003722 BLE 3$ 
000260 005000 CLR RO NDEX2 3957 
000262 105060 000000G 7$: CLRB TARGET . ADRCRO) 3 sC INDEX) 3958 
000266 005200 INC RO INDEX2 3957 
000270 020027 000005 CMP RO, #5 INDEX2, « 
000274 003772 BLE 7$ 
000276 022626 CMP gar 2*.68P D+ ; 3861 
000300 000207 RTS PC 
; Routine Size: 97 words, Routine Base: ABSCODE$ + 17134 
; Maximum stack depth per invocation: 10 words 
SBTTL 118 TEST 18 - ALL MULTICAST STATION ADDRESS TEST 
000000 004737 017134' T18:: 
000000 i$: JSR PC,$T18 ; 3958 
000004 104466 TRAP 66 
000006 006000 RO 
000010 103773 BLO 1$ 
000012 000207 RTS PC 


; Routine Size: 


Routine Base: ABSCODE$ + 17436 
2 words 


words, 
; Maximum stack depth per invocation: 


; 3961 i 
3962 1 


S acenenenerih nina tial ticeeteeenet eee teeeieendll  anecetentetnetanee adaite eernemmenemeeenamniaeanademenaneaan naam 
- 
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1 
1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
1 
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CZQNAEO 
TEST 19 - RUNT PACKET TEST 


#SB 





27-Mar-1986 07:36:09 


DEQNA FUNCTIONAL TEST : 
27-Mar-1986 07:33:50 


TTL ‘TEST 19 - RUNT PACKET TEST’ 
TEST 19: RUNT PACKET TEST 
DESCRIPTION: 


This test verifies that the DEQNA can detect runt packets in FIFO. 
If the operator specifies loop on error, the program re-executes the 
code that detected the error until tC is entered. 


Hardware tested: EPP 
Address Filter Circuitry 


Processing: 


BEGIN : 
reset device 
select internal loopback mode 
load Station Address RAM with Station Addresses from table 
load et with valid Station Address 


enab 
check for expected loopback status 
fe 


rint error if not inhibited 
ENDIF ee 


load et with invalid Station Address 
disable receiver 

transmit loopback packet 

enable receiver 

check for expected loopback status 
fet 


rint error message if not inhibited 
eyphOF 





VAX-11 Bliss-16 V4.0-579 
DISK2: [SCODA.QNA.ZQNA)JZQNA3.BLI;2 


.IOP_TABLE [ CSR ] = ZERO; 
ENDSUB ; 


SEQ 205 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 v4 40,579 Page 118 
V01.0 TEST 19 - RUNT PACKET TEST 27-Mar-1986 07:33:50  DISK2:[SCODA.QNA.ZQNA]} JONAS. BLI;2 (44) 
; 4013 3 BGNTST; 
401s 3 
; 4016 3 ! RESET DEQNA AND INITIALIZE ETHERNET STATION ADDRESS RAM IF EXECUTING 
; 4017 3 t TESTS IN EXTERNAL LOOPBACK MODE. 
; 4018 3 i. 
; 4019 3 
; 4020 3 RESET_DEQNA ( ) 
; 4021 3 PREP_FOR SETUP ¢ ); 
; 4022 3 NCR INDEX1 FROM 6 TO 19 DO 
; 4023 3 WRT_STATION_ADR ( .INDEX1 - 5, PHA_INDEX ); 
; 4024 3 
; 4025 5 ; 
; 4026 5 XMIT_SETUP_PACKET ( N_MODE ); 
; 4027 3 ENDSUB ; 
; 4028 3 
; 4029 3 bes 
; 4030 3 : NOW LOOPBACK 6 BYTE PACKETS AND CHECK IF THEY ARE RECEIVED PROPERLY 
; -— 
; 4032 3 
; 4033 3 RBUF_LENGTH = 6; 
; 4034 3 XBUF_LENGTH = - ( .RBUF_LENGTH t -1 ); 
; 
; 4036 3 WRT_STATION_ADR ( ZERO, PHA_INDEX ); 
; 4037 3 
; 4038 5 BGNSUB ; 
; 4039 5 XMIT_ILOOP_PACKET ( ZERO ); 
; 4040 3 ENDSUB; 
; 4041 3 
; 4042 § BGNSUB ; 
; 4043 : WRT_STATION_ADR ( ZERO, 2 ); 
; 4044 
; 4045 5 .IOP_TABLE [ CSR ] = ONE; 
; 4046 5 
; 4087 5 T_RDESCR_LIST ( .XBUF_LENGTH, VE ); 
; 4048 § FOP TABLE ROAD = RCV D/LIST; 
: 4049 : -IOP_TABLE { RHI~ADR ZERO 
; 
; 4051 5 SET_XDESCR_LIST ( .XBUF_LENGTH, VE ); 
; 4052 5 .I0P_ TABLE M0.A0R } = XMIT_D_LIST; 
; 4053 : -IOP_TABLE { XHI_ADR } = ZERO; 
; 4054 
; 4055 § CHK_RIXI_STATUS ( ZERO ): 
; 4056 5 CHK_CSR_STATUS ( CSR STATUS, CSR_MASK ); ' 0'100220', 0'100220' 
; 4057 5 CHK_XMIT_STATUS ( XFLG_STATUS, XWD12 STATUS ); ! 0'140000', 0'000400' 
; 4058 : CHK_RCV_STATUS ( RFLG_STATUS, RWD16 STATUS ); ! 0'140000', 0'044000' 
; 
3 5 
: 3 
; 3 
; 1 


ENDTST; 





SEQ 206 
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V01.0 TEST 19 - RUNT PACKET TEST 27-Mar-1986 07:33:50  DISK2:(SCODA.QNA.ZQNA]ZQNA3.BLI;2 (44) 
.SBTTL $T19 TEST 19 - RUNT PACKET TEST 
000000 010146 $719: MOV R1,-C(SP) ; 3960 
000002 004737 0000006 JSR PC RESET .DEQNA ; 4020 
004737 000000G JSR PC; PREP .FOR. SETUP ; 4021 
000012 012701 000006 MOV #6, R ; *, INDEX1 4022 
000016 010146 1$: MOV R1,-(SP) ; INDEX1, « 4023 
162716 000005 SUB #5, (SP 
000024 012746 000023 MOV #23, -(SP) 
000030 004737 000000G JSR PC,WRT. STATION. ADR 
000034 022626 CMP (SP)+,(SP)+ 
000036 1 INC Ri ; INDEX1 4022 
127 000023 CMP R1, #23 ; INDEX1,* 
000044 003764 BLE 1$ 
000046 104402 2$: TRAP =D ; 4023 
000050 012746 000200 MOV #200, -( SP) 4026 
000054 004737 000000G JSR PC, XMIT. SETUP. PACKET 
000060 005726 TST (SP)+ ; 4023 
000062 104467 TRAP = 67 ; 4026 
000064 ROR RO 
103767 BLO 2$ 
000070 737 000006 0000006 MOV #6, RBUF .LENGTH : 4033 
000076 012700 000006 MOV #6 RO ; 4034 
000102 006200 ASR RO 
000104 005400 NEG RO 
000106 010037 0000006 MOV RO, XBUF . LENGTH 
000112 005046 CLR -(§P) 4036 
000114 012746 000023 MOV #23,-(SP) 
004737 0000006 JSR PC, WRT. STATION. ADR 
000124 104402 3$: TRAP 3s 
005016 CLR (SP) ; 4039 
000130 004737 0000006 JSR PC, XMIT. ILOOP. PACKET 
000134 104467 TRAP 67 
000136 006000 ROR RO 
000140 103771 BLO 3$ 
000142 104402 4$: TRAP ; 4040 
000144 6 CLR ; 4043 
000146 012746 000002 MOV $2,-(SP) 
000152 004737 000000G JSR PC, WRT. STATION. ADR 
000156 012777 000001 0000166 MOV #1, SIOP. TABLE+16 ; 4045 
164 013716 000000G MOV XBUF . LENGTH, (SP) : 4047 
000170 012746 120000 MOV #-60000, -(SP) 
000174 004737 000000G JSR SET .RDESCR.LIST 
012777 000000G 0000046 MOV #RCV.D.LIST, A10P. TABLE +4 4048 
005077 0000066 CLR @IOP . TABLE +6 ; 4049 
12 013716 0000006 MOV XBUF .LENGTH, (SP) ; 4051 
000216 012746 120000 MOV #-60000, -(SP 
004737 0000006 JSR PC, SET.XDESCR.LIST 
000226 012777 9000006 0000106 HOV OXNTT =D LIST ,@IOP. TABLE +10 ; pe 
0050 0000 e + ; 
000240 005016 CLR : 4055 
000242 004737 000000G JSR PC, CHK.RIXI. STATUS 
000246 012716 100220 MOV #-77560, (SP) ; 4056 
000252 011646 MOV (SP), -C(SP) 





022626 
012601 
000207 


; Routine Size: 
; Maximum stack 


004737 
104466 
006000 
000010 103773 
000012 000207 

; Routine Size: 
; Maximum stack 


; 4064 1 
; 4065 1 


CZQNAEO DEQNA FUNCTIONAL TEST 
PACKET TEST 


TEST 19 - RUNT 


110 words, Rout 
depth per invocation: 


017452' 


words, 
deoth per invocation: 


MOV 
RTS 
outine Base: ABSCODES 
10 words 


0 
RTS 


27-Mar-1986 07: 
27-Mar-1986 07 


PC,CHK.CSR.STATUS 
40000 


:36: 


:09 
:33:50 


VAX-11 Bliss-16 V4.0-579 


207 
120 
DISK2:(SCODA.QNA.ZQNA]ZQNA3.BL1:2 °°% 


(44) 


$ 8 2 3 


T19 TEST 19 - RUNT PACKET TEST 


PC,$T19 


1 


Routine Base: ABSCODE$ + 20006 
2 words 


eed 


CO 
}—> 


S 


cE 


SPEPAPEREe Liat it it SERERERSREL SL: 


SEQ 208 
CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 ie PA De 
TEST 20 - FIFO OVERFLOW TEST 27-Mar-1986 07:33:50 DISK2: (SCODA.QNA.Z@ '4)ZQNA3.BLI;2 


SSBTTL ‘TEST 20 - FIFO OVERFLOW TEST’ 


Se 


’ 
TEST 20: FIFO OVERFLOW TEST 


DESCRIPTION: 


This test verifies that the Ethernet Protocol Processor can 
detect receive FIFO overflow condition. If the operator specifies 
loop on error, the program re-executes the code that detected the 
error until t€ is entered. 


Hardware tested: RCV Status wd 1 - error summary ptt 14), 
FIFO overflow (bit 0), 
Byte FIFO in the EDLC, 
and discard packet (bit 12) 


select loopback mode 

enable receiver ( set CSR bit 0) 

transmit loopbeck packet 
& 


' 

L 

’ 

5 

' 

' 

' 

’ 

' 

’ 

' 

LU 

' 

5 

' 

8 

’ 

’ 

t 

' transmit another loopback 
! check for expected nol geo 
IF error 
: 

! 

s 

: 

! 

! 

: 

$ 

8 

: 

$ 

: 

! 

: 

: 
§.- 


int error message if not inhibited 
ENDIF 







Receive Descriptor List 

enable receiver (set CSR BIT 0) , 
check for expected loopback status 

IF error 


int error message if not inhibited 
turn of 3 LED's on the module 


Page 121 
ee 45) 





:36:09 VAX-11 Blies-16 V4.0-579 P 122 
1 _ -§ 
:50 DISK2: [SCODA tl 


ZQNAS CZQNAEO DEQNA FUNCTIONAL TEST 27-Maer-1 
. QNA . ZQNA )ZQNA3 .BLI;2 (46 


986 07: 
vo1.0 TEST 20 - FIFO OVERFLOW TEST 27-Mar-1986 07:33: 
BGNTST; 


ed 


i RESET DEQNA AND INITIALIZE ETHERNET STATION ADDRESS RAM 


) 
1 FROM 1 TO 14 DO 
WRT_STATION_ADR ( .INDEX1, PHA_INDEX ); 


BGNSUB ; 
XMIT_SETUP_PACKET ( P_MODE ); 
‘ 
See 
' LOOPBACK 2 6-BYTE PACKETS IN INTERNAL LOOPBACK MODE CHECK IF PACKETS 
! WERE RECEIVED PROPERLY, SHOULD TRANSMIT AND RECEIVE PROPERLY. 


RBUF _LENGTH = 
XBUFTLER TH =< .RBUF_LENGTH ft -1 ); 


INCR INDEX FROM 2 TO 3 DO 
WRT_STATION_ADR ( ZERO, .INDEX ); 





BGNSUB ; 
XMIT_ILOOP_PACKET ( ZERO ); 
END; ' 


tee 


' FORCE RECEIVE FIFO OVERFLOW ( RCV STATUS WD 1 - BIT O ) BY TRANSMITTING 
* 2 ND 6-BYTE PACKET IN INTERNAL LOOPBACK MODE BEFORE RECEIVING FIRST PACKET 





BGNSUB ; 
.10P_TABLE { CSR ] = ZERO; 


WRT_STATION_ADR ( ZERO, 2 ); 
SET_XDESCR_LIST ( .XBUF 
.10P_TABLE- m.0AOR } = 
.I0P_TABLE [ XHI_ADR 


CHK_RIXI_STATUS ( ONE ); 
WRT_STATION_ADR ( ZERO, 3 ); 


_LENGTH 
= XMIT_O \Ss?! 
= ZERO; 


SET_XDESCR_ _LENGTH, VE ); 
108 TABLE x.0_AOR = XMIT_O_LIST; 


: 3 
; 3 
: 3 
; 3 
: 3 
: 3 
; 3 
: 3 
: 3 
; 3 
: 3 
: 5 
: 
3 

; 7 
3 3 
3 3 
; 3 
3 3 
3 3 
; 3 
; 3 
: 3 
$ 3 
3 4 
; 4 
; 4 
; 4136 6 
; 6 
$ 4 
; 3 
; 3 
; 3 
; 3 
; 3 
; 3 
; 3 
; 5 
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CZQNAEO DEQNA FUNCTIONAL TEST 2 
TEST 20 - FIFO OVERFLOW TEST 2 





SEQ 210 
VAX-11 Bliss-16 V4.0-579 Page 123 
DISK2: [SCODA.QNA.ZQNA )ZQNA3.BLI;2 (46) 


SET_RDESCR_LIST ( .XBUF_LENGTH, VE_); 
.IOP_TABLE [ RLO_ADR } = RCV_D_LIST; 
-IOP_TABLE { RHI_ADR } = ZERO; 


.IOP_TABLE { CSR ] = ONE; 


CHK_RIXI_STATUS ( ZERO ) 
CHK-CSR STATUS ( CSR_STATUS, CSR_MASK ); 1 0 
CHK-XMIT STATUS ( XFLG STATUS, xWO12 STATUS ) + 0'140000' ; 0' 000400" 
CHK-RX_LPSTATUS —( RFLG_STATUS, RWD15-STATUS ); + 0° 


.IOP_TABLE [ CSR ] = ZERO; 
ENDSUB 


( N.MODE ); 
TURN_OFF_LED ( LED1 ); 
“OFF_LED ( LED2 ); 
TURN_OFF_LED ( LED3 ); 
ENDTST; 
_SBTTL $T20 TEST 20 - FIFO OVERFLOW TEST 
$720: MOV Ri, -(SP) : 
0000006 JSR PC,,RESET .DEQNA ; 4115 
000000G JSR PC. PREP .FOR. SETUP : 4116 
000001 MOV #1,R1 ; *, INDEX1 4117 
1$: MOV R1,-(SP) ; INDEX1,* 4118 
000023 MOV #23, -(SP) 
JSR PC,.WRT. STATION. ADR 
CMP (SP)+,(SP)-+ 
INC Ri ; INDEX1 4117 
000016 CMP Ri, #16. ; INDEX1,* 
BLE 1$ 
2$: TRAP 2 ; 4118 
000202 MOV #202, -(SP) ; 4121 
0000006 JSR PC. XMIT . SETUP . PACKET 
TST (SP )« , 4118 
TRAP «67 ; 4121 
ROR RO 
BLO 2$ 
000006 0000006 MOV $6, RBUF .LENGTH ; 129 
000006 MOV #6 ,RO ; 4130 
ASR RO 
NEG RO 
0000006 MOV RO, XBUF .LENGTH 
000002 MOV $2,R1 ; *, INDEX 4132 
3$: CLR -(§P) : 4134 
MOV Ri, -(SP) ; INDEX,# 
0000006 JSR PC.WRT.STATION. ADR 
4$: TRAP (2) 





CZQNAEO DEQNA FUNCTIONAL TEST 
TEST 20 - FIFO OVERFLOW TEST 


000000G 


5$: 


Pas 


oP SSBP RSS RSSGASRC SLR ASA a Ta UTE TCR ASS SLC Ag 


BLO 
MOV 


27-Mar-1986 07:36:09 
50 


27-Mar-1986 07:33: 


(SP) 

a ewe 
RO 

4s 

fora kD 


#2, -(SP 

PC‘ WRT .STATION. ADR 
XBUF . LENGTH, (SP) 
#-60000, -(SP) 

PC, SET. XDESCR.LIST 


#XMIT.D.LIST,@IOP. TABLE +10 
@I0P . TABLE+12 


PC,SET. .LIST 
@IOP . TABLE+10 


22833 
Ba: 
iol 

ae 
@: 
a 
e 
> 


3g 
z 
2 
: 


e3g 
a 
Z 


VAX-11 Bliss-16 V4.0-5 
DISK2: (SCODA.QNA. ZQNA ) 





SEQ 212 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 age 125 
¥01.0 TEST 20 - FIFO OVERFLOW TEST 57-Mar-1986 07:33:50  DISK2:(SCODA.QNA.ZQNA)ZQNA3.BLI;2 (46) 
000422 004737 0000006 JSR PC, TURN. OFF .LED 
012716 000204 MOV #204, (SP) ; 4179 
000432 004737 000000G JSR PC, TURN. OFF .LED 
000436 012716 000210 MOV $210, (SP) ; 4180 
004737 JSR TURN. OFF 
012716 000214 MOV #214, (SP) ; 4181 
000452 004737 JSR PC, TURN. OFF .LED 
000456 005726 TST (SP)+ ; 4063 
000460 012601 MOV (SP)+,R1 
000462 000207 RTS PC 


; Routine Size: 154 words, Routine Base: ABSCODE$ + 20022 
; Maximum stack depth per invocation: 11 words 


.SBTTL T20 TEST 20 - FIFO OVERFLOW TEST 


000000 004737 020022’ T20: : 

000000 i$: JSR PC,$T20 ; 4181 
000004 104466 TRAP 66 

000006 006000 ROR RO 

000010 103773 BLO 1$ 

000012 000207 RTS PC 

; Routine Size: 6 words, Routine Base: ABSCODE$ + 20506 

; Maximum steck depth per invocation: 2 words 


; 4184 1 


a 


SEQ 213 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 Page 126 
vo1.0 TEST 21 - SANITY TIMER TEST 27-Mar-1986 07:33:50 DISK2:(SCODA.QNA.ZQNA}ZQNA3.BLI;2 (47) 
; 4185 1 *SBTTL ‘TEST 21 - SANITY TIMER TEST’ 
>; 4186 1 See 
; 4187 1 
; 4188 1 ' TEST 21: SANITY TIMER TEST 
; 4189 1 : 
; rey ; DESCRIPTION: 
; 
; 4192 1 ’ This test verifies that the Sanity Timer times out after a pre-set 
; 4193 1 : 4 ety by the rator ) ti ae BI period. The Sanity Timer uses 
; 4194 1 : DCOK line on the Q- to force the power_fail interrupt of the 
; aaa ; processor which in turn causes the processor to reboot itself. 
; 
; 4197 1 ’ Hardware tested: Sanity Timer Logic 
; 4198 1 : . 
; 4199 1 : Processing: 
; 4200 1 ! 
; 4201 1 : BEGIN 
; 4202 1 ’ reset device 
; 4203 1 : store Console Terminal and Power_fail interrupt vectors 
; 4204 1 : € lecation 24 and 60 octal ) 
; 4205 1 : enable Console Le | yg vinterrupt 
; 4206 1 ! arm for Power_ — inter a 
; 4207 1 : inform the operator test procedure 
; pra : set the Sanity Timer to timeout value supplied by the 
; 
; 4210 1 : able the Sanity Timer 
4312 i TF Power fail interrupt occured 
; -fail in oc 
; 4213 1 : THEN 
; ‘sis : int ‘SANITY TIMER TIMED OUT AS EXPECTED’ 
; 
; 4216 1 ! force Console Terminal i interrupt by typing “Q” 
; 4217 1 : int error message if not inhibited 
; 4218 1 : END 
; 4219 1 ! disable paotee Timer 
; 1 : restore Console Terminal and Power_fail interrupt vectors 
; 4221 : ( location 24 and 60 octal ) 
; 
; 4223 1 ! 





& 
> 


S535 
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SEQ 214 


CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-5 
TEST 21 - SANITY TIMER TEST 27-Mar-1986 07:33:50 DISK2: [SCODA.QNA. ZQNA}ZONAS. BLI;2 
BGNTST; 
IF_ .SWP_TIMER 
THEN 
BEGIN 


** RESET DEQNA AND INITIALIZE ETHERNET STATION ADDRESS RAM 


aeaet _DEQNA ( ); 
i" ” SETUP FOR POWER FAIL AND CONSOLE TERMINAL INTERRUPTS 


SETVEC ( PF_VEC_LOC, PWR_INT, PRIO7 ); ! POWER FAIL 
SETVEC ( KB_VEC_LOC, KBD_INT, PRIOS ); ' CONSOLE T 
SETPRI ( PRIOO J; ' SET PROCESSOR PRI LEVEL 
PREP_FOR_SETUP ( ); 


) 
INCR INDEX1 FROM 1 TO 14 DO 
WRT_STATION_ADR ( .INDEX1, PHA_INDEX ); 


SUT BIT [ CSR, SE EENABLE ); 
XMIT_SETUP COReKET’ ( wO" 200’: ( .SWP_TOUT_VAL + 4) ); 


SELECTONE .SWP_TOUT_VAL OF 


{ 0,1 }): 
TEMP1 = 1; 
PRINTB ( MSG32, .TEMP1 ); 
END; 
{2 ] 
TEMPi = 4; 
( MSG32, .TEMP1 ); 
END; 
(33 
TEMP1 = 16 
PRINTB ( MSG32, .TEMP1 ); 
END; 
{4 ] 
TEMP1 = 1; 
PRINTB ( MSGS5S5, .TEMP1 ); 
(S$): END; 


PRINTB “Ascss, . TEMP1 ); 
END; 
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000000 010146 
000002 005746 





CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar- 
TEST 21 - SANITY TIMER TEST Sonar ee Oo 3S:50 DISKO: 
{ 6]: 
TEMP1 = 16; 
PRINTB ( MSG55, .TEMP1 ); 
(7): : 
BEGIN 
TEMP1 = 
PRINTB ( AisGs6. -TEMP1 ); 
TES; 


PRINTB ( MSG57 ); 
INTERRUPT_FLG = -1; 
WAIT_FOR_TIMEOUT ( ); 


See 
! PUT DEQNA IN NORMAL MODE AND CHECK STATUS 


PUT BIT [ CSR. SE, DISABLE ); 
PREP FOR SETUP (3; 

INCR INDEX1 FROM 1 TO 14 DO 
INT “STATION_ADR ( .INDEX1, PHA_INDEX ); 


BGNSEG; 
XMIT_SETUP_PACKET ( N_MODE ); 


CLRVEC ( PF_VEC_LOC ); 
CLRVEC ( KB_VEC_LOC ); 


IF_.INTERRUPT_FLG 
THEN 
BEGIN 
PRINTB ( MSG33 ) 
END 
ELSE 


CSR_WORD = GET_BIT ( CSR_ALL ) 
PRINTB ( MSG59 3 
PRINTB ( MSG34 


BRa Ne if OeeT Aéco0, ERRORSREPORT ); 


SBTTL $121 TEST 21 - SANITY TIMER TEST 
$721: MOV (SP) 
TST Rt DS 


VAX-11 Bliss-16 V4.0-57 
(SCODA.QNA. ZQNA}ZONAS. BLI;2 





128 
(48) 


4183 





ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 
vO1.0 TEST 21 - SANITY TIMER TEST 27-Mar-1986 07:33:50 DISK2: [SCODA.QNA.ZQNA JZQNA3.BLI;2 


000004 032737 000001 000000G #1,SWP.TIMER ; 4226 
001002 1$ 

000014 000137 021522’ 

000020 004737 000000G 1$: 

000024 012746 000000G 

000030 012746 000000G 


12746 000024 
000040 012746 000003 


: 
agaaaagaee209%! 


z 


' &, INDEX1 4243 
R1; (SP) ’ INDEX1,# 4244 


Se 
Hor 


010116 2$: 
012746 


R1 ; INDEX1 4243 
a » #16 ; INDEX1,+* 


000132 104402 3$: 


: 

8 

; 
SaPgrayaaay 


: 
& 
a 


mans: 


000202 
000204 012737 000001 000000G 
000001 


000531 
000234 020127 000002 4$: 


85 95 





: 
o 
SEELEL Pee eb eer ei 


: 
oO 
: 
fe 
Sz 
% 
Se 
: 





ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-5 Page 130 

V01.0 TEST 21 - SANITY TIMER TEST 57-Mar-1986 07:33:50  DISK2:(SCODA.QNA. 7aNATZONAS. BLI;2 (48) 

000272 070127 000003 S$: CMP R1,93 4262 

000276 001014 BNE 

000300 012737 000020 0000006 MOV #20, TEMP1 ; 4264 

000306 012716 000020 MOV #20, (SP) ; 4265 

000312 012746 000000G MOV #MSG32, -(SP) 

000316 012746 000002 MOV $2, -(SP) 

322 O1 MOV SP RO ; SP,« 

000324 104414 TRAP 

000326 000473 BR 10$ 4263 

000330 020127 000004 6$: CMP Ri, 04 : 

000334 001014 BNE 

000336 012737 000001 000000G MOV $1, TEMP1 9 

000344 012716 000001 MOV #1, (SP) 4270 

000350 012746 MOV #MSG55, -(SP) 

000354 012746 000002 MOV 2,-(SP) 
Ol MOV SP ,RO ; SP ,* 

000362 104414 TRAP 3s «14 

000364 000454 BR 10$ ; 4268 

000 020127 000005 7%: CMP R1, #5 4272 

000372 001014 BNE 8$ 

000374 000004 0000006 MOV $4, TEMP1 ; 4274 

000402 012716 000004 MOV $4, (SP) ; 4275 

000406 012746 0000006 MOV @MSG55, -( 

000412 012746 000002 MOV #2, -(SP) 

000416 01 MOV SP ,RO ; SP,* 

000420 104414 TRAP = «14 

000422 000435 BR 10$ ; 4273 

000424 020127 000006 8$: CMP R1, 86 ; 4277 

000430 001014 BNE 

000432 012 000020 0000006 MOV $20, TEMP ; 4279 
012716 000020 MOV $20, (SP) : 4280 
012746 000000G MOV @MSG55, -(SP) 

000450 012746 000002 MOV #2, -(SP) 

000454 01 MOV SP ,RO ; SP,* 

000456 104414 TRAP sai 4 

000460 000416 BR 10$ ; 4278 

000462 020127 000007 9$: CMP R1, 87 ; 4282 

000466 001014 BNE 4 

000470 012737 000001 000000G MOV #1, TEMP1 ; 4284 

000476 012716 000001 MOV #1,(SP) : 4285 
012746 MOV ° 

000506 012746 000002 MOV #2, -(SP 

12 O1 MOV SP .RO ; SP,* 

Sate Aeese wor OS oneacen 

000520 012716 0000006 11$: MOV @MSG57, (SP) 4289 

000524 012746 000001 MOV #1,-(SP) 

000530 010600 MOV SP RO ; SP,* 

000532 104414 TRAP =ss«4 

000534 012737 177777 000000G MOV #-1, INTERRUPT .FLG : 4290 

000542 004737 000000G JSR PC, WAIT.FOR. TIMEOUT : 4291 

900546 013700 0000006 MOV REG. ADR. RO ; 4297 

000552 042760 002000 000016 BIC #2000, 16(RO) 











CZQNAEO DEQNA FUNCTIONAL TEST 
TEST 21 - SANITY TIMER TEST 


000000G 
000001 


12$: 


13$: 


000000G 

000016 000020 
000020 0000006 
000001 


000000G 
000001 


15$: 


000016 16$: 
17$: 


259 words, 


14$: 


BLO 


: — 


gages quaeeee® 


ey 


saB928 


a 


27-Mar-1986 07:36:09 
27-Mar-1986 07:33:50 


) 
PC it. . STATION. ADR 


Ri 
R1,#16 
a 
2200, (SP) 
os" »XMIT . SETUP . PACKET 
RO 
13$ 
#24,RO 
#60 ,RO 
#1, INTERRUPT .FLG 


#16, SP 
(SP). 
(SP)+,R1 
PC 


Routine Base: ABSCODE$ + 20522 


VAX-11 Bliss-16 V4.0-579 
DISK2: {SCODA.QNA.ZQNAJZQNA3.BL1;2 





*, INDEX1 
1,* 


INDEX1 


INDEX1, * 


SP ,* 


*«, TMP .LOCATION 
TMP .LOCATION, * 


SP ,* 


SP ,* 


422 
4183 


M1 


SEQ 219 
ZQNA3 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 
vo1.0 TEST 21 - SANITY TIMER TEST 27-Mar-1986 07:33:50 DISK2: [SCODA.QNA. ZQNA]ZQNA3.BLI;2 


; Maximum stack depth per invocation: 14 words 


.SBTTL 121 TEST 21 - SANITY TIMER TEST 


000000 004737 020522’ T21:: 
000000 i$: JSR PC,$T2i ; 
000004 104466 TRAP 66 
000006 006000 ROR RO 
000010 103773 BLO i$ 
000012 000207 RTS PC 
; Routine Size: 6 words, Routine Base: ABSCODE$ + 215350 
; Maximum stack depth per invocation: 2 words 
; 4325 1 
; 4326 1 
. fa 2 
; 4328 0O ELUDOM 
: OTS external references 
.GLOBL $SAVE4, $SAVE3, $SAVE2 
; PSECT SUMMARY 
Psect Name Words Attributes 
; ABSCODE $ 4530 RO, I , LCL, REL, CON 
; Library Statistics 
$ 
VP eee ee ee Re ee Symbols -------- Pages Processi 
; File Total Loaded Percent Mapped Time 7 
; 
; DISK2:(SCODA.QNA.ZQNA)QNALIB.L16;2 224 142 63 14 00:00.1 
; COMMAND QUALIFIERS 


; BLISS/PDP11 ZQNA3.8LI/LIST=ZQNA3.LIS/OBJECT=ZQNA3 . OBJ/SOURCE =PAGE : 53 


4322 





3 ZQNAEO DEQGNA FUNCTIONAL TEST 27-Mar-1986 07:36:09 VAX-11 Bliss-16 V4.0-579 Page 133 
coro EST 21 - SANITY TIMER TEST 
Size: 4530 code + 0 date words 
Run Time: 01:21.3 


; 

; . 
El Time: 01:28.1 

; Lines /CPU Hin: 3194 

; 

; 

: 


408 pages 
Comp i Lat ion "Complete 


———_ eee 


CO 
MO 


: 


: 


Hr br CODOO0O 


CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39 
26-Mar-1986 17:01:05 
MODULE ZQNA4 (TITLE ‘CZQNAEO DEQNA FUNCTIONAL TEST’ 
IDENT = ‘VO1.0' 


ADORESSING_ _MODE( ABSOLUTE ) 
SSBTTL ‘GLOBAL ROUTINE DECLARATION MODULE’ 


VAX x41 Bliss-16 V4.0 ea 
| SCODA. GNA GNA TZONAS. BLI;1 


BEGIN 

LIBRARY ‘QNALIB’ ! QNALIB LIBRARY 

REQUIRE BL SIAC. REQ’ ; ! DIAGNOSTIC SUPERVISOR LIBRARY 
! <BLF /NOF ORMAT > 


——_ —_.< — — ————————— 


Pp i 
we 


Cc) 
PO 


SEQ 222 
CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39  VAX-11 Bliss-16 V4.0-579 Page 

v01.0 GLOBAL ROUTINE DECLARATION MODULE 26-Mar-1986 17:01:05  DISK2:(SCODA.QNA.ZQNA)ZQNA4.BLI;1 

s 502 1 PSECT 

3 1503 1 CODE = ACS$CODES; 

s 1504 1 

; 1505 1 FORWARD ROUTINE 

; 1506 1 XMIT_AND_RCV_PACKET : NOVALUE; 

3 1507 1 

: 1508 1 tee 

; 1509 1 ' EXTERNAL DATA USED BY THIS MODULE 

3 1510 1 '-. 

; 1511 1 

; 3512 1 EXTERNAL 

8 i513 1 

3 1514 1 toe 

; 1515 1 ' COMMUNICATION AREA DECLARATIONS 

Be Et 

; 

; 1518 1 RCV_D_LIST : BLOCK [ D_SIZE, WORD FIELD ( DL_FIELDS ), 

; 1519 1 XMIT_D_LIST : BLOCK f D SIZE. WORD } FIELD ( DL_FIELDS ) 

; 1520 1 DESCR LIST : BLOCK f{ DESCR SIZE FIELD ( DL_FIELDS ), 

; 1521 1 RCV_BUFFER : VECTOR { B_SIze, BYTE }, 

; 1522 1 XMIT_BUFFER : VECTOR { B-SIZE. BYTE }, 

; 1523 1 DATA_BUFFER : VECTOR { BUF_SIZE : 

; 1524 1 SETUP BUFFER : VECTOR { SETUB SIZE, 1, 

; 1525 1 TOP_TABLE VECTOR [{ 8, WORD }, 

; 1526 1 BD_PROM_DESCR VECTOR [ BO_D ee7e WORD }, 

; 1527 1 STATION_ADR VECTOR [ 4, WORD iF 

; 1528 1 TARGET _ADR : VECTOR { T SIZE, BYTE }, 

; 1529 1 PHYS _ADR vector { 22, BYTE J, 

+ igs if 

s See 

; 1532 : HARDWARE AND SOFTWARE P-TABLE STORAGE DECLARATIONS 

Py --— 

; 1534 1 

; 1535 1 HWP_TABLE =: REF BLOCK { HWP_SIZE, WORD ] FIELD ( HWP_FIELDS ), 

; 1536 : SWP"TABLE =: REF BLOCK [{ SWP_SIZE, WORD ] FIELD ( SWP_FIELDS ), 

; 

; 1538 1 REG_ADR REF REG_STR FIELD ( IOP_FIELDS ), 

; 1539 1 GET_ADR REF ADR_STR FIELD ¢ IOP FIELDS ), 

; 1540 1 IOP ~DATA REF REG_STR FIELD ( IOP_FIELDS ), 

; 





i 


— 
-~ oO 
¥ 
al 


eo «2 Ge e+ © Ge Ge @F Ge Ge Ge GF Ge Ge Ge Ge Ge SS Se GF Ge Ge Ge Ge Ge Ge GF GF Ge Ge Ge Ge @e Ge Ge oe 
PO he he a be be be ae be he be be be be be be be be be be be ae be ee pe be pe be be pe po pe po 


OO 
PO 


—) 
¥ 
vi 


CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar 
GLOBAL ROUT Mar 





INE DECLARATION MODULE 26- 


MISCELLANEOUS DATA DECLARATIONS 


oP at ocx ren Swe TOUT VAL SWP a 
COUNTER, COUNTER, CHECKSUM, 
COUNT, ERR_FLAG, CSR 
PRIO1, PRIO2, PRIO3, 

05. PRIO6. PRIO7. 


TEMPORARY STORAGE DATA DECLARATIONS 





aH REG_DATA rete 1 
TEMP4, ° TEMPS, 
TEMPS. TEMPS. 
TBYTE2, TBYTES, 
DIAGNOSTIC ERROR MESSAGES DECLARED EXTERNALLY 
MSGOO, 
MSGO1, MSGO2, MSGO3, , MSGO7, 
MSG11, MSG12. MSG13. a , 
MSG21. MSG22, mSG23. , 
MSG31, MSG32. : : 
MSG41, MSG42, MSG43, ° s 
MSG51, MSG52. MSG53. 2 : 
MSG61. MSG62. MSG63. . MSG67, 





VAX-11 Bliss-16 V4.0-579 
DISK2:(SCODA. 


P 3 
und (3) 


CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39 VAX-11 Bliss-16 V4.0-579 age 4 
vo1.0 GLOBAL ROUTINE - ERRORSREPORT ( ) 26-Mar-1986 17:01:05 DISK2: (SCODA.QNA. ZQNA )ZQNA4 .BLI;1 (4) 
; 1578 1 SSBTTL ‘GLOBAL ROUTINE - ERRORSREPORT ( )' 
> ave 3 
; 1580 1 lee 
; 1581 1 : 
: 138s : GLOBAL ROUTINE : ERROR $REPORT 
; : 
; 1564 1 ! DESCRIPTION: 
; 1585 1 : : 
; 1586 1 : This routine reports errors to the operator 
5s a 3 : 
; 1588 1 !-- 
; 1589 1 
; tae : SSBTTL ‘GLOBAL ROUTINE - ERRORSREPORT ( )‘ 
; 
; 1592 1 BGNMSG CERROR$REPORT); 


ZQNA4 CZQNAEO DEQNA FUNCTIONAL TEST 
= .0/ 


RCV.D.LIST, XMIT.D.LIST, DESCR.LIST 
RCV.BUFFER, XMIT.BUFFER, DATA.BUFFER 
SETUP.BUFFER, IOP. TABLE, Fi tag .DESCR 


DA 

INTERRUPT.FLG, COUNTER 

e SWP . TOUT.VAL, SWP . ILOOP 
COUNTER, DOWN.COUNTER 


agneees 
ee Pes 
: 2 ; 8 
SaQ8o 5 
a 
5g 
: 


qe 
ne 
i 
= 
" 


SURASE SEEN Oaa8 
ageeepee 
peReeees 
einer 








ee 6+ @¢ © ©* @¢ @e @e @e Ge Ge Ge 


004737 
104423 
000207 


an 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
1 


04414 
013716 


ize: 


SEQ 225 
CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39  VAX-11 Bliss-16 V4.0-579 Page 5 
GLOBAL ROUTINE - ERROR$REPORT ( ) 56-Mar-1986 17:01:05  DISK2:{SCODA.QNA.ZQNA)ZQNA4 .BLI;1 (4) 
_SBTTL ERRORSREPORT GLOBAL ROUTINE - ERRORSREPORT ( ) 
"PSECT ACS$CODE$, RO 
000000V ERROR$REPORT: : 
JSR PC ,MSERROR$REPORT , 1592 
TRAP =-«2>3 
RTS 
4 words, Routine Base: AC$CODE$ + 0000 
depth per invocation: 2 
PRINTB ( MSGO3 ); 
PRINTB ( MSGO4, .XMIT_D_LIST . .RCV_D_LIST [{ FLGWD } ); 
PRINTB ( MSGOS. _XMIT_D-LIST { DBITS J, .RCV_D_LIST [ OBITS } ); 
PRINTB ( MSGO6, .XMIT_D_LIST ” "RCV~D-LIST [ LOADR } ); 
PRINTB ( MSGO7. .XMIT_D_LIST * "RCV-D-LIsT { TWOL J ) 
PRINTR € MSGOB, “XMIT~D-LIST [ STWD1 ) AND XMDI_MASK, .RCV_D_LIST [ STWD1 ] AND RWD2_MASK ); 
PRINTB ( MSGO9, .XMIT_D_LIST [ S AND XWD2-MASK, [RCV~D_LIST ({ STWO2 } AND RLL_MASK ); 
PRINTB ( MSG10. .CSR_WORD AND #0'133777' ); 
PRINTB ( MSG11. .HWP TABLE [ ADOR } ); 
ENDMSG; 
_SBITL MSERRORSREPORT GLOBAL ROUTINE - ERRORSREPORT ( ) 
0000006 MSERROR$REPORT : 
MOV @MSGO3, -( SP) ; 1594 
000001 MOV #1, -(SP) 
MOV SP ,RO ; SP ,* 
TRAP 0 s«14 
0000006 MOV RCV.D.LIST, (SP) ; 1595 
0000006 MOV T.0.LIST, -(SP) 
0000006 MOV -(SP) 
000003 MOV #3, -(SP) 
MOV ‘ ; SP,* 
TRAP _-14 
000002G MOV RCV.D.LIST+2,(SP) ; 1596 
0000026 MOV XMIT.O. LEsts2, -(SP) 
0000006 MOV @MSGO5 
000003 MOV et £5 baal 
MOV SP, ; SP,* 
TRAP 3s «14 
0000046 MOV RCV.D.LIST+4, (SP) ; 1597 
0000046 MOV XMIT.0.LIST+4, -(SP) 
0000006 MOV #MSG06 . -( SP 
000003 MOV 83, -(SP) 
MOV SP, ; SP ,* 
TRAP 3 s«14 
0000066 MOV RCV.D.LIST+6,(SP) : 1598 





SEQ 226 
CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39  VAX-11 Bliss-16 V4.0-579 Page 6 

v01.0 : TC) 56-Mar-1986 17:01:05  DISK2:{SCODA.QNA. ZQNA)ZQNA4.BLI;1 (4) 
000114 013746 000006G MOV XMIT.D.LIST+6, -(SP) 
000120 012746 000000G MOV @MSGO7, -(SP) 
000124 012746 000003 MOV #3, -(SP) 
000130 010600 MOV SP;RO ; SP,« 
000132 104414 TRAP = ‘14 
000134 013716 000010G RCV.D.LIST+10,(SP) ; 1599 
000140 042716 000370 BIC #370, (SP) 
000144 013746 000010G MOV XMIT_D.LIST+10, -(SP) 
000150 042716 020017 BIC #20017, (SP) 
000154 012746 #MSG08, -(SP) 
000160 012746 000003 #3, -(SP) 
000164 01 SP RO ; SP, 
000166 104414 14 
000170 005016 (SP) ; 1600 
000172 113716 000012G RCV.D.LIST+12, (SP) 
000176 013746 000012G XMIT.D.LIST+12, -(SP) 

042716 140000 #140000, 

012746 MOV @MSG09, - 
000212 012746 000003 #3, -(SP) 
000216 01 MOV SP RO ; SP,* 

104414 14 
000222 013716 000000G MOV CSR. WORD, (SP) 1601 

042716 044000 #44000, (SP) 
000232 012746 000000G MOV #MSG10, -(SP) 
000236 012746 000002 MOV #2,-(SP) 
000242 01 MOV SP ,RO ; SP ,* 
000244 104414 TRAP 3s«14 
000246 017716 0000006 MOV @HWP . TABLE, (SP) ; 1602 
000252 012746 000000G MOV @MSGil, -(SP) 
000256 012746 000002 MOV #2, -(SP) 
000262 010600 MOV SP RO ; SP,* 
000264 104414 TRAP = «14 
000266 062706 000060 ADD 960, SP 1592 
000272 000207 RTS PC 





; Routine Size: 94 words, Routine Base: ACS$CODE$ + 0010 
; Maximum stack depth per invocation: 26 words 


; 1605 1 
; 1606 1 


i EK 


ae -— 


CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39 VAX-11 Bliss-16 V4.9-579 


ZQNA4 
vo1.0 GLOBAL ROUTINE - E1$REPORT ( ) 26-Mar-1986 17:01:05 DISK2:(SCODA. 


; 1607 1 SSBITL ‘GLOBAL ROUTINE - E1S$REPORT ( )’ 
: 1608 1 
; 1609 1 toe 
; 1610 1 : 
; 1611 1 ' GLOBAL ROUTINE : E1$REPORT 
3 1612 1 : 
; 1613 1 ! DESCRIPTION: 
; 1614 1 ! 
; 1615 1 ! This routine reports errors to the operator 
; 1616 1 : 
. iw & $.- 
; 1618 1 
; et ; SSBTTL ‘GLOBAL ROUTINE - E1$REPORT ( )' 
; 
s we 6b BGNMSG ( E1$REPORT ); 
_SBTTL E1$REPORT GLOBAL ROUTINE - E1L$REPORT ( ) 
000000 004737 O00000V E1$REPORT: : 
JSR PC .M$SE1L$REPORT ; 
000004 104423 TRAP 23 
000006 000207 RTS PC 
; Routine Size: 4 words, — Routine Base: ACSCODE$ + 0304 
; Maximum stack depth per invocation: 2 words 
; 1622 2 
; 1623 2 TEMP1 = 1; 
; 1624 2 
; 1625 1 ENDMSG ; 
.SBTTL MSE1$REPORT GLOBAL ROUTINE - E1$REPORT ( ) 
000000 012737 000001 000000G MS$E1L$REPORT: 
MOV #1, TEMP1 ; 
000006 000207 RTS PC ; 
; Routine Size: 4 words, Routine Base: AC$CODE$ + 0314 
; Maximum stack depth per invocation: words 


; 1626 1 
; 1627 1 





QNA . ZQNA)ZQNA4 .BLI;1 


7 
_ (5S) 


1621 


1623 
1621 


PO eee be ee ee ee be ee ee be be be be ee be be ee be he be he bo pe pe 


SEQ 228 


CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39 VAX-11 Bliss-16 V4.0 Page §& 
GLOBAL ROUTINE - RESET_DEQNA ( ) 26-Mar-1986 17:01:05 DISK2:(SCODA.QNA. ZQNA3ZONAS BLI;1 (6) 


SSBTTL ‘GLOBAL ROUTINE - RESET_DEQNA ( )' 
GLOBAL ROUTINE RESET_DEQNA : NOVALUE = 


a 
> 


GLOBAL ROUTINE : RESET _DEQNA 
DESCRIPTION: 


This routine verifies that DEQNA can be reset by setting bit 1 in the 
eet After the reset, CSR is checked for nominal 
status 


Hardware tested: Q-Bus DMA Interface 
Processing: 
BEGIN 
set Software Reset (SR) bit in CSR and check for 


expected CSR status 
IF error 
THEN 


int error message if not inhibited 


clear SR bit in CSR and check for expected CSR status 
IF error 


ee error message if not inhibited 


i SK 


SEQ 229 


ZQNA4 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39 VAX-11 Bliss-16 V4.0-579 Page 9 
v0O1.0 GLOBAL ROUTINE - RESET_DEQNA ( ) 56-Mar-1986 17:01:05  DISK2:(SCODA.QNA.ZQNA)ZQNA4.BLI;1 (7) 
; 1663 1 

ee 

* 

; 1666 } ! RESET THE DEVICE AND CHECK CONTENTS OF CSR FOR NOMINAL STATUS 

; 

; 1668 1 = 

; 1669 1 

; 1670 2 BEGIN 

3 1671 2 

; 1672 2 PUT_BIT ( CSR, ALL_BITS, ZERO ); 

; 1673 ; PUT-BIT ( CSR. SR, SET_IT ); 

i 

; 1675 2 DELAY ( TIME6_LIMIT ); 

; 1676 2 TEMP1 = GET BIT [ CSR'ALL ) AND CSR2_MASK; 

; 

; 1678 2 IF .TEMP1 NEQU CSR1_STATUS 

; 1679 2 THEN 

; 1680 3 

; 1681 3 ERR _FLAG = ONE; 

; 1682 3 SR-WORD = = oe! “BIT { CSR_ALL ]; 

; 1683 3 PRINT 9°); 

; 1684 3 NB HH i; 

; 1685 3 PRINTB ( MSG30, .GET_ADR [{ CSR_ALL ], .TEMP1, CSR2_STATUS ); 
; 1686 3 ERRDF ( 0001, MSGOO, E1$REPORT ); 

; 1687 2 ; 

; 1688 2 

Bis 

; oa 

; 1691 ° : CLEAR SOF RESET BIT IN THE CSR AND CHECK FOR CTED STATUS 
; 4 

; 1693 2 = 

; 1694 2 

; 1695 2 PUT_BIT ( CSR, SR, CLR_IT ); 

; 169% 2 DELAY ( TIME6 LIMIT ); 

; 1697 2 TEMP2 = GET BIT [ CSR_ALL ] AND CSR2_MASK; 

; 1698 2 IF .TEMP2 NEQU CSR2_STATUS 

; 1699 2 THEN 

; 1700 3 BEGIN 

; 1701 3 ERR_FLAG = ONE; 

; 1702 3 CSR_WORD = GET_BIT [ CSR_ALL ]; 

; 1703 3 PRINTB ( MSGS9 ); 

; 1704 3 PRINTB ( MSG31 ); 

; 1705 3 PRINTB ( MSG30, .GET_ADR [ CSR_ALL ], .TEMP1, CSR2_STATUS ); 
; 170 3 ERRDF ( 0002, MSGOO, E1$REPORT ); 

; eT 2 END; 

; 1708 2 

; 1709 1 END; 


-GLOBL “LSDLY 


SBTTL RESET.DEQNA GLOBAL ROUTINE - RESET_DEQNA ( ) 





ZQNA4 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39  VAX-11 Bliss-16 V4.0-579 Page 10 
v01.0 GLOBAL ROUTINE - RESET_DEQNA ( ) 56-Mar-1986 17:01:05  DISK2:(SCODA.QNA.ZQNA)ZQNA4.BLI;1 (7) 
000000 004137 0000006 RESET .DEQNA: : 

JSR R1, $SAVE2 1630 
000004 162706 000016 SUB 16,SP 
000010 013700 MOV REG. ADR, RO ; 1672 
000014 012702 000016 MOV #16 ,R2 
000020 ADD RO,R2 
000022 0050 CLR (R2) 
000024 152712 000002 BISB #2,(R2) 1673 
000030 012701 000001 MOV 1.R1 ; *,$$TMP2 1675 
000034 001410 1$: BEQ 4$ 
000036 013700 0000006 MOV L$DLY,RO ; *,$$TMP1 
000042 001403 BEQ 3$ 
000044 000014 2$: CLR 14(SP) $$TMP 
000050 077003 SOB RO,2$ ; $$TMP1, « 
000052 1 3$: DEC R1 ; $$TMP2 
000054 000767 BR i$ 
000056 011216 4$: MOV (R2), (SP) ; *,TMP.LOCATION 1676 
000060 011637 MOV (SP). TEMP1 
000064 010000 0000006 BIC #10000, TEMP1 
000072 023727 000062 CMP TEMP1, #62 1678 
000100 001453 BEQ S$ 
000102 012737 000001 0000006 MOV #1,ERR.FLAG 1681 
000110 O1 000002 MOV CSP) .2¢SP) ; *, TMP.LOCATION 1682 
000114 011637 000000G MOV (SP).CSR.WORD 
000 012746 000000G MOV 8MSG59, -(SP) ; 1683 
000 012746 000001 MOV #1,-(SP) 
000130 01 MOV SP RO ; SP,* 
000132 104414 TRAP =s-s«14 
000134 012716 MOV $MSG31, (SP) ; 1684 
000140 012746 000001 MOV #1,-(SP) 
000144 01 MOV SP ,RO ; SP,* 
000146 104414 TRAP «14 
000150 012716 000060 MOV #60, (SP) ; 1685 
000154 013746 000000G MOV TEMP1, -(SP) 
000160 013766 000000G MOV GET .AOR, 14(SP) ; &, TMP.LOCATION 
000166 062766 000016 000014 ADD #16, 14(SP) : a, TMP.LOCATION 
000174 0 000014 MOV 14(SP), -(SP) ; TMP.LOCATION, * 
000200 012746 000000G MOV @MSG30, -(SP) 
000204 012746 000004 MOV #4, -(SP) 
000210 010600 MOV SP RO ; SP,* 
000212 104414 TRAP s«d14 
000214 104455 TRAP 43Os«8SS ; 1686 
000216 000001 .WORD 1 
000220 0000006 “WORD MSG , 
000224 062706 000016 ADD SP ; 1680 
000230 013700 00C:00G S$: MOV ADR ; 1695 
000234 142760 000002 000016 BICB  #2,16(RO) 
000242 012702 000001 MOV 1,Re ; *, $$TMP2 1696 
000246 001410 6$: BEQ $ 
000250 013701 0000006 MOV L$DLY,R1 ; *,$$TMPL 
000254 001403 BEQ $ 
000256 000014 7$: CLR 14(SP) ; $$TMP 








SEQ 231 
CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39  VAX-11 Bliss-16 V4.0-579 age 11 

v01.0 GLOBAL ROUTINE - RESET_DEQNA ( ) 56-Mar-1986 17:01:05  DISK2:(SCODA.QNA.ZQNA}ZQNA4 .BLI;1 (7) 
000262 077103 SOB R1,7$ ; $$TMP1,« 
000264 005302 8s: DEC R2 ; $$TMP2 
000266 000767 BR 6$ 
000270 016066 000016 000006 9$: MOV 16(RO),6(SP) ; *, TMP LOCATION 1697 
000276 016637 000006 000000G MOV 6(SP), TEMP ; TMP.LOCATION, « 
000304 042737 010000 000000G BIC #10000, 
000312 023727 000000G 000060 CMP TEMP2 , #60 ; 1698 
000320 001455 BEQ 
000322 012737 000001 ; 1701 
000330 016666 000006 000010 MOV 6(SP), 10(SP) ; &,TMP.LOCATION 1702 
000336 016637 000010 000000G SP}, CSR.WORD ; TMP. LOCATION, « 
000344 012746 000000G 59. -(SP) 1703 
000350 012746 000001 MOV ,-(SP) 

010600 SP RO ; SP,* 
000356 104414 TRAP = :14 
000360 012716 000000G MOV #MSG31, (SP) 1704 
000364 012746 000001 MOV #1,-(SP) 
000370 01 MOV SP RO ; SP,* 
000372 104414 TRAP 3s «14 
000374 012716 000060 MOV #60, (SP) 1705 
000400 013746 000000G MOV TEMP1, -(SP) 
000404 013766 000000G MOV GET. ADR, 22(SP) ; &,TMP.LOCATION 
000412 766 000016 000022 ADD #16, 22(SP) *, TMP .LOCATION 
000420 01 000022 MOV 22( $P).-(SP) ; TMP.LOCATION, + 
000424 012746 000000G MOV @MSG30.-(SP 
000430 0 000004 MOV $4, -(SP) 
000434 01 MOV SP RO ; SP,* 
000436 104414 TRAP 14 
000440 1 TRAP 3s 1706 
000442 WORD 2 
000444 “WORD  MSGOO 
000446 000304’ "WORD E1$REPORT 
000450 062706 000016 ADO $16,SP ; 1700 
000454 062706 000016 10$: ADD $16,SP ; 1630 
000460 000207 RTS PC 


; Routine Size: 153 words, Routine Base: ACSCODE$ + 0324 
; Maximum stack depth per invocation: 19 words 


s tue & 





SEQ 232 
ZQNA4 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39 VAX-11 Bliss-16 V4.0 Page 12 
v01.0 GLOBAL ROUTINE - VER_DESCR_STATUS ( ) 26-Mar-1986 17:01:05  DISK2:(SCODA.QNA. ZQNATZONAS.. BLI;1 (8) 
; 1711 1 SSBTTL ‘GLOBAL ROUTINE - VER_DESCR_STATUS ( )' 
; 
; 1713 i GLOBAL ROUTINE VER_DESCR_STATUS : NOVALUE = 
; 
; i7s> 3 See 
3 1716 1 ’ 
; 1717 4 ! GLOBAL ROUTINE : VER_DESCR_STATUS 
; 4 
: 1719 i ! DESCRIPTION: 
; 4 
; 1721 1 : This routine compares expected receive descriptor to actual receive 
; 1722 1 ’ descriptor. 
$ 1723 1 ! 
; 1728 i t INPUT PARAMETERS: 
; J 
; 1726 1 ' TEST_NO - test number in which error occurred. 
; 1727 1 ; 
; 1728 1 = 
; 1729 1 
; 1730 1 
; 1731 2 BEGIN 
s ise eé 
; 1733 2 INCR INDEX FROM 0 TO BD_D_SIZE - 1 DO 
; 1734 3 BEGIN 
; 1735 3 TEMP1 = .DESCR_ LIST Tf - Doe INDEX, W -LEN ji 
; 73% 3 TEMP2 = .DESCR_ AND RFLG_MASK; 
; 1737 4 IF ( .TEMP2 NE TRPLG. ASK Ak} ARD AND C _TEMP1 NEQU .BD_PROM_DESCR [ .INDEX ] ) 
; 1738 3 THEN 
' te 3 SR_WORD = GETSIT { CSRALL } 
; ; 
; 1741 4 PRINT 9°); 
s as 4 ante ¢ Fecas Ji BD PROM DESC? f .INDEX ] , .INDEX ) 
; ee . as . ee 3 
; 1744 4 ERRDF ( 0003, MSGOO, ERRORSREPORT ); 
; 1745 3 END; 
; 1746 2 ; 
; 1747 2 
; 1748 1 END; 

_SBTTL VER.DESCR.STATUS GLOBAL ROUTINE - VER_DESCR_STATUS ( ) 
000000 004137 0000006 VER.DESCR. STATUS: : 

JSR Ri, $SAVE2 ; 1713 
000004 005746 TST -(SP) 
000006 005002 CLR ; INDEX 1733 
000010 010201 1s: MOV R2,R1 ; INDEX,# 1735 
000012 006301 ASL 
000014 016137 000000G 000000G MOV DESCR.LIST(R1), TEMP1 
000022 016137 000000G 000000G MOV DESCR.LISTCR1), TEMP2 ; 1736 
000030 042737 037777 000000G BIC #37777, TEMP2 
000036 023727 000000G 140000 CMP TEMP2 , #-40000 : 1737 
000044 001447 BEQ 
000046 026161 000000G 0000006 CMP DESCR.LIST(R1),8D.PROM.DESCR(R1) 





SEQ 233 

ZQNA4 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39 VAX-11 Bliss-16 V4.0 Page 13 

v01.0 GLOBAL ROUTINE - VER_DESCR_STATUS ( ) 26-Mar-1986 17:01:05  DISK2:(SCODA.QNA. ZONATZONAS.. BLI;1 (8) 

000054 001443 BEQ 2$ 

000056 013700 000000G MOV REG. ADR, RO , 1740 

000062 016016 000016 MOV 16(RO), (SP) ; &,TMP.LOCATION 

000066 011637 MOV (SP) CSR. WORD ; TMP. LOCATION, « 

000072 746 MOV 59, -(SP) ; 1741 

000076 012746 000001 MOV #1, -(SP) 

000102 Ol V SP RO ; SP,* 

000104 104414 TRAP 14 

000106 012716 MOV #MSG48 (SP) ; 1742 
112 000001 MOV #1,-(SP 

000116 01 SP ,,RO ; SP,* 
120 14 TRAP = 14 

000122 010216 MOV R2,(SP) ; INDEX, + 1743 
124 146 0000006 MOV BD. PROM. DESCR(R1), -(SP) 

000130 013746 000000G MOV TEMP1, - $P) 

000134 012746 0000006 MOV $MSG 

000140 012746 000004 MOV wer 7 Sh 

000144 01 MOV SP RO ; SP,* 

000146 104414 TRAP «14 

000150 104455 TRAP 3s 1744 

000152 5 

000154 

000156 WORD ERROR$REPORT 

000160 062706 000016 ADD #16,SP ; 1739 

000164 005202 2$: INC ; INDEX 1733 

000166 020227 000017 R2, #17 ; INDEX, + 

000172 003706 BLE 1$ 

000174 005726 TS (SP)+ 1713 

000176 000207 RTS PC 


; Routine Size: 64 words, Routine Base: AC$CODE$ + 1006 
; Maximum stack depth per invocation: 13 words 


; 1749 1 


a EK 





BS 


. of 


=e ef Ge @e Ge © Ge Se Ge Ge Ge Ge Se Ge Ge Ge Be GF Ge Ge Ge Ge oe 
ar 
oO 
_ 

MM AWWIN RRR RR Re ee ee ee ee 


00 
000016 020027 
000024 000207 


det 


; Routine Size: 
stack 


CZQNAEO — FUNCTIONAL TEST 
GLOBAL INE - CLR_DESCR ( ) 


SSBTTL ‘GLOBAL ROUTINE - CLR_DESCR ( )’ 
GLOBAL ROUTINE CLR_DESCR : NOVALUE = 


GLOBAL ROUTINE : 


CLR_DESCR 


27-Mar-1986 07:37:39 
26-Mar-1986 17:01:05 


SEQ 234 
VAX-11 Bliss-16 en 0-579 Page 14 
DISK2: [SCODA.QNA. ZQNA )ZQNA4 .BLI;1 (9) 


This routine initializes transmit and receive descriptor lists to 0. 


' 
‘ 
' 
: 
DESCRIPTION: 
’ 
' 


BEGIN 
INCR INDEX FROM O TO D_SIZE - 1 DO 
XMIT_D_LIST f v7 = 0 
Rcv_0_CIST t “INDEX EN | = 0; 
END; 
END; 
.SBTTL CLR.DESCR GLOBAL ROUTINE - CLR_DESCR ( ) 
CLR.DESCR: : 
CLR RO ; INDEX 1766 
000000G i$: CLR XMIT.D.LISTCRO) ; *C INDEX) 1768 
000000G CLR RCV.D.LISTCRO) ; *C INDEX) 1769 
000002 ADD . ; *, INDEX 1766 
000176 54 orig ; INDEX, 
RTS PC ; 1752 
11 words, Routine Base: ACSCODE$ + 1206 
depth per invocation: 0O words 


a ES 








SEQ 235 


CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39 VAX-11 Bliss-16 V4.0-579 Page 15 

vo1.0 GLOBAL ROUTINE - CLR_BUFFERS ( Pil ) 26-Mar-1986 17:01:05 DISK2:(SCODA.QNA.ZQNA)ZQNA4.BLI;1 (10) 
3 iT : SSBTTL ‘GLOBAL ROUTINE - CLR_BUFFERS ( Pi )' 
3 
: au ; GLOBAL ROUTINE CLR_BUFFERS ( P1 ) : NOVALUE = 
: 
; 1779 1 : 
; 1780 1 : 
; 1781 1 ' GLOBAL ROUTINE : CLR_BUFFERS 
; 1782 1 : 
s nme 3 ' DESCRIPTION: 
; 1784 1 : ‘ St le ' 
: ie : This routine initializes transmit and receive buffers to 0. 
: 
» kaw ' INPUT PARAMETERS: 
1789 i Pi - number of bytes to cl 
: - ro clear. 
; 1790 1 : 
; 1791 1 : 
; 1792 1 
; 1793 1 
; 1794 2 BEGIN 
; 1795 2 
; 179% 2 INCR INDEX FROM O TO .Pi - 1 DO 
; 1797 3 BEGIN 
; 1798 3 RCV_BUFFER . INDEX = 0; 
; 1799 3 XMIT_BUFFER [ .INDEX ] = 0; 
; 1800 2 END; 
; 1801 e2 
; 1802 1 END; 

.SBTTL CLR.BUFFERS GLOBAL ROUTINE - CLR_BUFFERS ( Pi ) 
000000 005000 23 

CLR RO ; INDEX 1796 
000002 000405 BR 2$ 
000004 105060 000000G i$: CLRB a fh? ; *C INDEX) 1796 
000010 105060 000000G CLRB XMIT. CRO) ; *(C INDEX) 1799 
000014 005200 INC RO ; INDEX 1796 
000016 000002 2s: CMP RO,2CSP) ; INDEX,P1 
000022 002770 BLT i$ 
000024 RTS PC : 1777 
; Routine Size: 11 words, Routine Base: ACSCODE$ + 1234 
; Maximum stack depth per invocation: O words 


; 1803 1 
>; 1804 1 





© 
N 


S 


ot 


MONON WWWUIWWWR RR WUWWINRRRNUNRRNRDD RRR RRR RRR RRR RRR eRe RR RR rere 


SEQ 236 


CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39  VAX-11 Slies-16 V4.0-579 Page 16 
GLOBAL DISK2: {SCODA. 


ROUTINE - CHK_RIXI_STATUS ( P1 ) 26-Mar-1966 17:01:05 
SSBTTL ‘GLOBAL ROUTINE - CHK_RIXI_STATUS ( Pi )' 
GLOBAL ROUTINE CHK_RIXI_STATUS ( P1 ) : NOVALUE = 


> 
> 


GLOBAL ROUTINE : CHK_RIXI_STATUS 
DESCRIPTION: 
This routine verifies that XI ( bit 7 ) and RI ( bit 15 ) 


of the CSR status word are set to 1 shortly after transmission of a 
loopback packet is complete. If either bit isn't set, an error 


message is printed. 
INPUT PARAMETERS: 
Pi - 0: check XI and RI 
- 1: ckeck XI 
- 2: check RI 


TEST_NO - test number in which error occurred. 


See 
' CHECK TRANSMIT INTERRUPT REQUEST BIT ( XI - BIT 7 ) TO VERIFY THAT DEQNA 
! ACTUALLY COMPLETED TRANSMISSION OF A LOOPBACK PACKET. 


IF ( .P1 EQLUO ) ORC .P1 EGU 1 ) 


THEN 
SS 2 2 ee 
IF GET_BIT [ CSR, } EQLU ONE 


SE 
IF .INDEX EQLU TIMES_LIMIT 
THEN 


BEGIN 

ESR-WORD = Cer BIT { CSR_ALL } 

PRINTB ( MSG59 ); ' 
5 eee 38 


PRINTB 

PRINTB ( HSG26 

engRROF (0008 76 A tko0, ERRORSREPORT ); 
; 


QNA . ZQNA)ZQNA4.BLI;1 (11) 





wre 
e88 : 


eu: 


r 
oe 


000114 


~ 
> 
o 
MONON GI GIT 90 10 IEG GE Ge PO PO PO PR GP PO PU PD 


SEQ 237 


27-Mar-1986 07:37:39 .0-57 
ZQNA }ZQNA4 .BLI;1 


26-Mar-1986 17:01:05 DISK2: 


! CHECK RECEIVE INTERRUPT REQUEST BIT ( RI - BIT 15 ) TO VERIFY THAT DEQNA 
&, ACTUALLY RECEIVED TRANSMITTED LOOPBACK PACKET. 


VAX-11 Bliss-16 V4 


CZQNAEO DEQNA FUNCTIONAL 
GLOBAL ROUTINE (SCODA . QNA .Z 


TEST 
- CHK_RIXI_STATUS ( Pi ) 


IF ( .P1 EQLUO ) ORC .P1 EQLU 2 ) 
INCR INDEX FROM O TO TIME2 LIMIT DO 


IF GET BIT { CSR, RI ] EQLU ONE 
THEN 
TEMP2 = INDEX; 
EXITLOOP; 
ELSE 
IF .INDEX EQLU TIME2_LIMIT 
THEN 
BEGIN 
ESR-WORD = oer _BIT [{ CSR_ALL ] 
PRINTB ( MSG597); ' 
PRINTB ( MSG29 ); 
PRINTB ( MSG25 ); 
-— ( 0005, MSGOO, ERRORSREPORT ); 
END; ‘ 
_SBTTL CHK.RIXI.STATUS GLOBAL ROUTINE - CHK_RIXI_STATUS ( P1 ) 
0000006 CHK .RIXI.STATUS: : 
JSR R1, $SAVE3 ; 
000010 SUB #10, SP 
000022 MOV 22( SP) ,R2 ; Pl,« 
CLR R3 
TST R2 
BNE i$ 
INC R3 
BR 2$ 
000001 i$ CMP R2,¢1 
BNE 6$ 
2s: CLR Ri ; INDEX 
000016 :  esCdeto) ts) fe, TMP LOCATION 
TSB aes  THP LOCATION 
000000G = Ri, TEMP1 5 INDEX, * 
a 
$0008 900002" Mov saat RO 2CSP) ; &, TMP. LOCATION 
000002 MOV ), SR. WORD TMP ..LOCATION, * 
MOV §,-(SP) 
000001 MOV #1, -(SP) 


Page 17 


(11) 


1807 
1836 


838 
1839 





ZQNA4 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39  VAX-11 Bliss-16 V4.0-57 Page 18 
V01.0 GLOBAL ROUTINE - CHK RIXI_STATUS ( P1 ) 26-Mar-1986 17:01:05  DISK2:(SCODA.QNA. ZQNA}ZONAA. BLI;1 (11) 
000120 010600 MOV SP ,RO ; SP,* 
000122 104414 TRAP 30s «14 
000124 012716 0000006 MOV #MSG29, (SP) ; 1852 
000130 012746 000001 MOV #1, -(SP) 
000134 010600 MOV SP ,RO ; SP,* 
000136 10441 TRAP 3:14 
000140 012716 0000006 MOV $MSG26, (SP) 1853 
000144 012746 000001 MOV #1,-(SP) 
000150 010600 MOV SP RO ; SP,* 
000152 104414 TRAP 3-14 
000154 104455 TRAP 3=s-s«455 ; 1854 
000156 000004 WORD 4 
000160 0000006 “ WORD 
000162 000000’ "WORD  ERROR$REPORT 
000164 062706 000010 ADD #10, SP 1848 
000170 005201 S$: INC 1 ; INDEX 1838 

172 002000 CMP R1, #2000 ; INDEX, * 
000176 003717 BLE 3$ 
000200 6$: ROR R3 ; 1862 
000202 103403 BLO 73 
000204 000002 CMP R2,42 
000210 001062 BNE 11$ 

12 7$: CLR Ri ; INDEX 1864 
000214 013700 8S: MOV REG. ADR, RO ; 1865 

O1 000016 000004 MOV 16(RO),4(SP) ; &, TMP.LOCATION 
000226 100003 BPL 9$ 
000230 010137 0000006 MOV Ri, TEMP2 ; INDEX, « 1868 
000234 000450 BR 11$ : 1867 
000236 020127 002000 9$: CMP R1, #2000 ; INDEX, * 1872 
000242 001041 BNE 10$ 
000244 012737 000001 MOV #1, ERR.FLAG ; 1875 
000252 01 000016 000006 MOV 16(RO).6(SP) ; &, TMP.LOCATION 1876 
000260 01 MOV 6(SP),CSR.WORD ; TMP LOCATION, * 
000266 012746 MOV 9,-(SP) ; 1877 
000272 012746 000001 MOV #1, -(SP) 
000276 010600 MOV SP RO ; SP,* 
000300 104414 TRAP s«14 
000302 012716 MOV aMSG29, (SP) ; 1878 
000306 012746 000001 MOV #1,-(SP) 
000312 0 MOV SP .RO ; SP,* 
000314 TRAP = :14 
000316 012716 0000006 MOV @MSG25, (SP) ; 1879 
000001 MOV #1,-(SP) 

000326 0 MOV SP RO ; SP,* 
000330 104414 TRAP 3 s«14 
000332 TRAP 55 : 1880 





SEQ 239 

ZQNA4 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39 VAX-11 Bliss-16 V4.0-579 Page 19 
vo1.90 GLOBAL ROUTINE - CHK_RIXI_STATUS ( P1 ) 26-Mar-1986 17:01:05 DISK2:(SCODA.QNA. ZQNA ]ZQNA4.BLI;1 (11) 
000334 000005 WORD 5 
000336 000000G WORD 
000340 000000’ .WORD ERRORSREPORT 
000342 062706 000010 ADD #10,SP ; 1874 
000346 005201 10$: INC Ri ; INDEX 1864 
000350 020127 002000 CMP R1, #2000 ; INDEX,* 
000354 003717 BLE 8$ 
000356 062706 000010 11$: ADD #10,SP ; 1807 
000362 000207 RTS PC 
; Routine Size: 122 words, Routine Base: ACSCODE$ + 1262 

; Maximum stack depth per invocation: 14 words 


s 1665 1 


ene eee Ee 





SEQ 240 


ZQNA4 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39 VAX-11 Bliss-16 V4.0-579 
vo1.0 GLOBAL ROUTINE - CHK_CSR_STATUS ( ri, Pe ) 26-Mar-1986 17:01:05 DISK2:(SCODA.QNA.ZQNA)ZQNA4 .BLI;1 
; sees i SSBTTL ‘GLOBAL ROUTINE - CHK_CSR_STATUS ( Pi, P2 )' 
; 
; tt : GLOBAL ROUTINE CHK_CSR_STATUS ( Pi, P2 ) : NOVALUE = 
; 1888 1 See 
; 1889 1 ! 
; ieee : GLOBAL ROUTINE : CHK_CSR_STATUS 
; ! 
; 1892 1 ! DESCRIPTION: 
; 1893 1 ! ' 
; oe : This routine checks CSR status words for expected status. 
: ! 
; 1696 1 ! INPUT PARAMETERS: 
$ 1897 1 H 
: 1898 i : Pi -e ted CSR status 
; 1899 1 ' P2 - mask 
; 1900 1 ! TEST_NO - test number in which error occurred. 
; 1901 1 : 
$ 1902 1 !-- 
; 1903 1 
; 1904 2 BEGIN 
; 1905 2 
; 1906 2 bee 
; ped $ SAVE CSR, RESET TRANSMIT AND RECEIVE REQUEST BITS IN THE CSR 
; !-- 
; 1909 2 
; 1910 2 DELAY ( 5 ); 
5s ea a2 
; 1ote : CSR_WORD = GET_BIT [ CSR_AiL ]; 
; 
; 1914 2 PUT_BIT cs. oS a 
; 1915 2 PUT_BIT ; 
; 1916 2 
; 1917 2 TEMP1 = .CSR_WORD AND .P2; 
; 1918 2 
; 1919 2 IF .TEMP1 NEQU .P1i 
; 1920 2 THEN 
EB ug « oe 
3 = ; 
; 1923 3 PRINTB ( ); 
; 1924 3 PRINTB ( MSGi2, .TEMP1, .Pi ); 
; 1925 3 ERRDF ( 0006, MSGOO, ERRORSREPORT ); 
; 1926 2 END; 
5 waa & END; 
_SBTTL CHK.CSR.STATUS GLOBAL ROUTINE - CHK_CSR_STATUS ( Pil, P2 ) 
000000 010146 CHK .CSR.STATUS: : 
MOV -(SP) ; 
000002 024646 CMP “(8), -(SP) 
000004 012701 000005 MOV ; *, $$TMP2 


000010 001410 1$: BEQ yg 
000012 ; *, $$TMPl 


013700 000000G MOV L$DLY,RO 





20 
(12) 


1886 
1910 





CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39  VAX-11 Bliss-16 V4.0-579 Page 21 
V01.0 GLOBAL ROUTINE - CHK _CSR_STATUS ( Pi, P2 ) 26-Mar-1986 17:01:05  DISK2:(SCODA.QNA.ZQNA)ZQNA4.BLI;1 (12) 
000016 001403 BEQ 3$ 
000020 005066 000002 2$: CLR 2(SP) ; $$TMP 
000024 077003 SOB RO, 2$ ; $$TMP1,+« 
000026 005301 3$: DEC Ri ; $$TMP2 
000030 000767 BR i$ 
000032 013700 4s: MOV REG. ADR, RO 1912 
000036 062700 000016 ADD #16,RO 
000042 011016 MOV CRO}, (SP) ; *, TMP LOCATION 
000044 011637 0000006 MOV (SP): CSR. WORD 
000050 052710 100200 BIS #100200, (RO) ; 1915 
000054 011637 000000G MOV (SP), TEMP1 ; CSR.WORD, « 1917 
000060 016600 000010 MOV 10(SP),RO ; P2,* 
000064 005100 COM RO 
000066 040037 0000006 BIC RO, TEMP 
000072 023766 000000G 000012 CMP TEMP1, 12(SP) ; *,P1 1919 
000100 001431 BEQ S$ 
000102 012 000001 0000006 MOV #1,ERR.FLAG 1922 
000110 012746 MOV #MSG59, -(SP) ; 1923 
000114 012746 000001 MOV #1,-(SP) 
000120 01 MOV SP ,RO ; SP,* 
000122 10441 TRAP 14 
000124 016616 000016 MOV 16(SP),(SP) ; Pl,* 1924 
000130 013746 MOV TEMP1, -(SP) 
000134 012746 MOV 12, -(SP) 
000140 012746 000003 MOV #3, -(SP) 
000144 010600 MOV SP RO ; SP,« 
000146 104414 TRAP 14 
000150 104455 TRAP «455 ; 1925 
000152 000006 .WORD 6 
000154 0000006 “WORD 
000156 000000’ "WORD ERROR$REPORT 
000160 062706 000012 ADD , 1921 
000164 022626 S$: CMP (SP5+,(SP)+ : 1886 
000166 012601 MOV (SP)+,R1 
000170 000207 RTS PC 
; Routine Size: 61 words, Routine Base: AC$CODE$ + 1646 


; Maximum stack depth per invocation: 10 words 


; 1928 i 
; 1929 1 





SEQ 24 
ZQNA4 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39 VAX-11 Bliss-16 V4.0-579 —_ Page 22 
vo1.0 GLOBAL ROUTINE - CHK_XMIT_STATUS ( P1, Pe ) 26-Mar-1986 17:01:05 DISK2: (SCODA.QNA.ZQNA)]ZQNA4 .BLI;1 (13) 
; 1990 : SSBTTL ‘GLOBAL ROUTINE - CHK_XMIT_STATUS ( Pi, P2 )' 
1338 i GLOBAL ROUTINE CHK_XMIT_STATUS ( P1, P2 ) : NOVALUE = 
1934 i See 
: 1935 1 ! 
: 1357 : GLOBAL ROUTINE : CHK_XMIT_STATUS 
1938 1 DESCRIPTION: 
tone ; This routine checks transmit status words for expected status. 
; 61942 1 ' INPUT PARAMETERS: 
; 1943 1 ! 
; 1944 1 ' Pi - - XMIT flag word 
; 1945 1 : P2 expected a XMIT status word 1 
; 1946 1 ! TEST _NO - - test number in which error occurred. 
; 1947 1 ! 
; 1948 1 ! 
; 1949 1 !.- 
; 1950 1 
; 1951 2 BEGIN 
oe 
F} i+e 
; 1954 2 ! MASK OUT DON’T CARE BITS IN THE XMIT FLAG WORD AND COMPARE TO EXPECTED 
; 1955 2 ' \MIR FLAG STATUS. IF STATUS NOT EQUAL THEN PRINT ‘BAD XMIT FLAG WORD 
; 1956 2 ! _STA TUS' 
; 1957 2 !. 
; 1958 2 
3 e+ : TEMP2 = .XMIT_D_LIST [ FLGWD ] AND XFLG_MASK; ' 0' 140000’ 
; 
; 1961 2 IF .TEMP2 NEQU .P1 
; 1962 2 THEN 
; 1963 3 
; 1964 3 ERR_FLAG = ONE; 
; 1965 3 CSR_WORD = = GET BIT [ CSR_ALL }; 
; 1966 3 PRINTB ( MSG59 ); 
; 1967 3 PRINTB ( MSG13, .TEMP2, XFLG_MASK ); 
; 1968 3 ERRDF ( 0007, MSGOO, ERRORS$REPORT ); 
; 1969 2 END; 
; 1970 2 
; 1971 2 tee 
; 1972 2 ' MASK OUT DON’T CARE BITS IN THE XMIT STATUS WD1 AND COMPARE TO EXPECTED 
; tana $ XMIT STATUS WD1. IF STATUS NOT EQUAL THEN PRINT ‘BAD XMIT STATUS WORD 1' 
é a 
; 1975 2 
3 12 $ IF .XMIT_D_LIST ({ STWD1 ) GTRU ZERO 
; 
; ion . an” = .XMIT_D_LIST [ STWD1 ] AND NXWD1i_MASK ' 0'157400' 
: 
; 980 . TEMPS = .XMIT_D_LIST [{ STWD1 ] AND X1_MASK; ' 0'100000' 
; 
; 2 


IF .TEMPS NEQU .P2 





KS 


SEQ 243 
2 CZQNAEO_DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39  VAX-11 Bliss-16 V4.0-579 Page 23 
v01.0 GLOBAL ROUTINE - CHK XMIT_STATUS ( Pi, P2 ) 56-Mar-1986 17:01:05  DISK2:(SCODA.QNA.ZQNA)ZQNA4.BLI;1 (13) 
; 1983 2 THEN 
; 1984 3 BEGIN 
; 1985 3 ERR_FLAG = ONE; 
; 1986 3 CSR WORD = = GET -BIT { CSRALL J: 
; 1987 3 PRINTB ( 9); 
; 1988 3 CRINTE ¢ HeGié. TEMP 3, Pe 
; 1989 3 ERRDF ( 0008, MSGOO, ERRORS T Ds 
; 1990 2 ; 
; 1991 2 
; 1992 1 END; 
SBTTL CHK.XMIT.STATUS GLOBAL ROUTINE - CHK_XMIT_STATUS ( P1, P2 ) 
000000 024646 CHK.XMIT STATUS: : 
CMP -(SP),-(SP) ; 1932 

000002 013737 0000006 0000006 MOV XMIT.O.LIST, TEMP2 1959 
000010 042737 037777 000000G BIC #37777, TEMP 
000016 023766 0000006 000010 CMP TEMP2, 10(SP) ; *,P1 1961 
000024 001437 BEQ 1§ 
000026 012737 000001 0000006 MOV $1,ERR.FLAG 1964 
000034 013700 000000G MOV REG. ADR ; 1965 
000040 016016 000016 MOV 16(RO), (SP) ; &, TMP.LOCATION 
000044 011637 000000G MOV (SP), CSR ; TMP.LOCATION, + 
000050 012746 #MSG59, -(SP) 1966 
000054 012746 000001 MOV $1, -(SP) 
000060 010600 MOV SP RO ; SP,* 
000062 104414 TRAP = «14 
000064 012716 140000 MOV #-40000, (SP) 1967 
000070 013746 MOV TEMP2, -(SP) 
000074 012746 MOV #MSG13, -(SP) 
000100 012746 000003 MOV #3, -(SP) 
000104 010600 MOV SP RO ; SP,* 
000106 104414 TRAP 3s «14 
000110 104455 TRAP 3 0s«55 ; 1968 
000112 000007 . WORD 
000114 "WORD  MSGOO 
000116 "WORD  ERRORSREPORT 
000120 062706 000012 ADD #12,SP ; 1963 
000124 013700 000010G 1$: MOV XMIT.D.LIST+10,RO ; 1976 
000130 001406 BEQ 2$ 
000132 010037 000000G MOV RO, TEMP3 ; 1978 
000136 737 020377 0000006 BIC #20377, TEMP3 
000144 000405 BR 3$ 1976 
000146 010037 0000006 2$: MOV RO, TEMP3 ; i 
000152 042737 077777 000000G BIC 877777, TEMP3 
000160 023766 000000G 000006 3$: CMP TEMP3,6(SP) ; *,P2 1982 
000166 001441 BEQ 4§ 
000170 012737 000001 000000G MOV $1,ERR.FLAG : 1985 
000176 013700 0000006 MOV REG. ADR, RO 1986 
000202 016066 000016 000002 MOV 16(RO) 2(SP) ; &, TMP.LOCATION 
000210 016637 000002 MOV 2(SP),CSR.WORD ; TMP.LOCATION, * 
000216 012746 MOV ersce8 -(SP) ; 1987 

012746 000U01 MOV #1, es) 





000272 022626 
000274 000207 
; Routine Size: 
; Maximum stack 


; 1993 1 
; 1994 1 


CZQNAEO DEQNA FUNCTIONAL TEST 
GLOBAL ROUTINE - CHK_XMIT_STATUS ( P1, P2 ) 


000012 
000003 
000012 
4$: 
95 words, Routine Base: 


depth per invocation: 9 words 


27-Mar-1986 07:37:39 
26-Mar-1986 17:01:05 


MOV SP ,RO 
TRAP = «14 

MOV 12(SP), (SP) 
MOV TEMP3, -(SP) 
MOV 14, -(SP) 
MOV #3, -(SP) 

MOV SP, 

TRAP ‘14 

TRAP 3=s-s«sSS 

.WORD 10 

“ WORD 

"WORD ERROR$REPORT 
ADD SP 

CMP (SP}+,(SP)-+ 
RTS 


ACS$CODE$ + 2040 


SEQ 244 
VAX-11 Bliss-16 V4.0-579 
DISK2: [SCODA.QNA.ZQNA )ZQNA4 .BLI;1 
; SP,* 


; P2,* 


; SP,* 


24 
(13) 


1988 


1989 


1984 
1932 


SEQ 245 
Z CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39 VAX-11 Bliss-16 V4.0-579 Page 
vo1.0 GLOBAL ROUTINE - CHK_RCV_STATUS ( Pi, Pe ) 26-Mar-1986 17:01:05 DISK2: (SCODA.QNA.ZQNA]ZQNA4 .BLI;1 

1995 SSBTTL ‘GLOBAL ROUTINE - CHK_RCV_STATUS ( P1, Pe )' 
+ GLOBAL ROUTINE CHK_RCV_STATUS ( P1, P2 ) : NOVALUE = 
1999 tee 
2000 ' 
2001 GLOBAL ROUTINE : CHK_RCV_STATUS 
2003 ' DESCRIPTION: 
2004 ! 
2005 This routine checks receive status words for expected status. 
5007 ! INPUT PARAMETERS: 
2008 ! 
2009 : Pi - expected RCV fleg word 
2010 ! ined - expected RCV status word 1 
oa TEST_NO - test number in which error occurred. 
2013 = 
2014 
2015 BEGIN 
5017 ) 

See 
2018 ! MASK OUT DON’T CARE BITS IN THE RCV FLAG WORD AND COMPARE TO EXPECTED 
2019 At STATUS. IF STATUS NOT EQUAL THEN PRINT ‘BAD RCV FLAG WORD 

aoe 


TEMP1 = .RCV_D_LIST [ FLGWD ] AND RFLG_MASK; ! 0’ 140000’ 
IF .TEMP1 NEQU .P1 
THEN 


BEGIN 
ERR_FLAG = ONE; 
CSR-WORD = GET BIT [{ CSR_ALL ]; 
PRINT f teers 7* ree RFLG_MASK ) 
ERRDF ( 0009, MSGOO, ERRORSREPORT ); 


: 
tee 


! MASK OUT DON'T CARE BITS IN THE RCV STATUS WO1 AND COMPARE TO EXPECTED 
' RCV STATUS WO1. IF STATUS NOT EQUAL THEN PRINT ‘BAD RCV STATUS WORD 1’ 


IF .RCV_D_LIST ({ STWD1 ] GEQU ZERO 
TEMP2 = .RCV_D_LIST [ STWD1 J] AND R2_MASK ! 0'174017' 
TEMP2 = .RCV_D_LIST [ STWD1 ] AND .Pe; 


-- «+ ee oe oe @e Ge Ge Ge Ge Ge Ge Ge Ge Ge Se FF GF Se GF SF Ge Se Se Se Se Se Se Se Se Se Ge Se St Ge Se Se Se Se Se Ge SF SF Gs Se Se Se Ge Ge Ge Ge Ge we 
we 
MMMM NWUWUUUNDORNYNNNNNNNEPR ERR RP RRR RRR Reet 


! added for error bits qualified by bit 12 (discard) 





NS 





SEQ 246 
Z CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39 VAX AL Bliss -16 V4.0-579 Page 26 
v01.0 GLOBAL ROUTINE - CHK_RCV_STATUS ( Pi, P2 ) 26-Mar-1986 17:01:05 A. QNA. ZQNA }ZQNA4.BLI;1 (14) 
; 2048 2 TEMP3 = .TEMP2 AND #0’ 10000’ ; 1IS BIT 12 (DISCARD) SET 
; 2049 2 IF . TEMPS EQLU #0’0' 
; 2050 2 THEN 
; 
; oo ; Pees = .TEMP2 AND #0'177400' ; 'MASK BITS QUAL BY BIT 12 
; 2053 3 TEMP2 = .TEMP3; ‘PUT FINAL DATA IN TEMP2 
; 2054 2 END; | 
: 2055 2 ! end additions 
; 2056 2 
; 2057 2 
; 2058 2 IF .TEMP2 NEQU .P2 
: 2059 2 THEN 
; 2060 3 GIN 
; 2061 3 ERR_FLAG = ONE; 
; 2062 3 CSR_WORD = = GET -BIT [ CSRALL J: 
; 2063 3 SeENTB ( 9°); 
; 2064 3 PRONTD ¢ HSGié, _ TEMP2 2. beds 
; 2065 3 ERRDF ( 0010, MSGOO, ORT ); 
; 2066 2 END; 
8 2067 2 
; 2068 1 END; 
_SBTTL CHK.RCV.STATUS GLOBAL ROUTINE - CHK_RCV_STATUS ( P1, P2 ) 
000000 024646 CHK .RCV.STATUS: : _ 
000002 013737 000000G 000000G MOV ; 2023 
000010 042737 037777 000000G BIC 
000016 023766 000000G 000010 CMP ; *,P1 2025 
000024 001437 BEQ 
000026 012737 000001 0000006 MOV ; 2028 
000034 013700 000000G MOV ; 2029 
000040 016016 000016 MOV ; *, TMP.LOCATION 
000044 011637 000000G MOV ; TMP.LOCATION, « 
000050 012746 MOV ; 2030 
000054 012746 000001 MOV 
000060 01 MOV ; SP,# 
000062 10441 TRAP 
000064 012716 140000 MOV : 2031 
000070 0137 MOV 
000074 012746 : MOV 
000100 012746 000003 MOV 
000104 010600 MOV : ; SP,« 
000106 104414 TRAP si 
000110 104455 TRAP «S555 ; 2032 
000112 000011 .WORD 11 
000114 . WORD 
000116 “WORD ERRORSREPORT 
000120 706 000012 ADD $12, SP ; 202 
000124 013700 000010G 1$: MOV RCV.D.LIST+10,RO ; 
000130 010037 000000G MOV ‘ 
000134 042737 003774 000000G BIC $3774, TEMP2 
000142 013737 000000G 000000G MOV 


2040 
2042 
TEMP2 , TEMPS 2046 
i ES 








CZQNAEO DEQNA FUNCTIONAL TEST 
GLOBAL ROUTINE - CHK_RCV_STATUS ( Pi, P2 ) 


167777 000000G 
000000G 000000G 
000377 000000G 
000000G 0000006 
000000G 000006 


000001 000000G 
000000G 

000016 000002 
000002 000000G 


000000G 
000001 
000012 
000000G 


000000G 
000003 


000012 


104 words 


depth per invocation: 


2s: 


3$: 


ze 
H 
o 


g gg SSSdE gaaaEeEaNIaRE 


aa855 





27-Mar-1986 07:37:39 
26-Mar-1986 17:01:05 


#167777, TEMPS 


#12, SP 
(SP }+,(SP)+ 
PC 


Routine Base: AC$CODE$ + 2336 
9 words 


VAX-11 Bliss-16 V4.0-579 
DISK2: [SCODA.QNA.ZQNA}ZQNA4 .BLI;1 


*,P2 


*, TMP .LOCATION 
TMP .LOCATION, + 


SP ,* 
P2,* 


SP ,* 


—_———_ — er 


27 
7” 14) 


2060 
1997 


Rosse sRaeSeSeSBSR RE ER ESS 


POPE PO POP PO PO PON POP DR HAWUAUWUINI RMR RR NNN DDND PP RR rR rhe ee ee er hee ee ee ee 





SEQ 248 
CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39 VAX-11 Bliss-16 V4.0-579 
GLOBAL ROUTINE - CHK_RX_LPSTATUS ( Pi, P2 ) 26-Mar-1986 17:01:05 DISK2: [SCODA.QNA.ZQNAJZQNA4 .BLI;1 


SSBTTL ‘GLOBAL ROUTINE - CHK_RX_LPSTATUS ( P1, P2 )’ 
GLOBAL ROUTINE CHK_RX_LPSTATUS ( P1, P2 ) : NOVALUE = 


> 
> 


GLOBAL ROUTINE : CHK_RX_LPSTATUS 
DESCRIPTION: 

This routine checks receive status words for expected status. 
INPUT PARAMETERS: 

Pi - - ooneees RCV flag word 


P2 xpected RCV sta word 1 
TEST _NO - - cone | number in which error occurred. 


added because discard does not set in loop mode 


TEMP1 = .RCV_D_LIST [ FLGWD ] AND RFLG_MASK; ! 0’ 140000’ 
IF_.TEMP1 NEQU .P1 
THEN 


END 
HAE eT eee TE See Ee et oa Bcy STATUS WORD 1” 


IF_.RCV_D_LIST { STWD1 ] GEQU ZERO 
THEN 


an = .RCV_D_LIST ({ STWD1 J] AND R2_MASK ! 0'174017' 
TEMP2 = .RCV_D_LIST [ STWD1 J] AND .P2; 


Page 





26 
(15) 








SEQ 249 





ZQNA4 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39 VAX-11 Bliss-16 V4.0-579 age 29 
v01.0 GLOBAL ROUTINE - CHK_RX_LPSTATUS ( Pi, P2 ) 26-Mar-1986 17:01:05  DISK2:(SCODA.QNA.ZQNA)}ZQNA4.BLI;1 (15) 
; 2123 2 
3 2124 2 
; 2125 2 IF .TEMP2 NEQU .P2 
> 2a 2 THEN 
; 2427 3 BEGIN 
; 2128 3 ERR_FLAG = ONE; 
; 2129 3 CSR-WORD = GET. BIT [ CSR_ALL ]; 
; tS cone | ee? >t wo pe) 
; a . — 
; 6132 3 ERRDF ( 0010, MSGOO, ERRORSREPORT ); 
; 2133 2 END; 
: 214 2 
; 2135 1 END; 

-SBTTL CHK.RX.LPSTATUS GLOBAL ROUTINE - CHK_RX_LPSTATUS ( Pi, P2 ) 
000000 024646 CHK .RX.LPSTATUS: : 

CMP -(SP),-(SP) ; 2072 
000002 013737 000000G 0000006 MOV RCV.D.LIST, TEMP1 ; 2101 
000010 042737 037777 000000G BIC 837777, TEMPL 
000016 023766 0000006 000010 CMP TEMP1, 10(SP) ; *,P1 2103 
000024 001437 BEQ i$ 
000026 012737 000001 0000006 MOV #1,ERR.FLAG ; 2106 
000034 013700 MOV ; 2107 
000040 016016 000016 MOV ; &, TMP.LOCATION 
000044 011637 MOV ; TMP LOCATION, + 
000050 012746 MOV ; 2108 
000054 012746 000001 MOV 
000060 01 MOV ; SP,+ 
000062 104414 TRAP 
000064 012716 140000 MOV ; 2109 
000070 013746 MOV 
000074 012746 MOV 
000100 012746 000003 MOV 
000104 01 MOV SP ; SP,« 
000106 104414 TRAP, 
000110 104455 TRAP 3=«-s«s55 ; 2110 
000112 000011 .WORD il 
000114 “WORD 
000116 "WORD ERROR$REPORT 
000120 062706 000012 ADD #12,SP ; 2105 
000124 01 000010G 1$: MOV RCV.D0.LIST+10,RO ; 2116 
000130 010037 MOV ; 2120 
000134 042737 003774 000000G BIC $3774, TEMP2 
000142 0237 000006 CMP TEMP2 ,6(SP) ; *,P2 2125 
000150 001441 BEQ 2$ 
000152 012737 000001 000000G MOV #1,ERR.FLAG ; 2126 
000160 013700 MOV REG. ADR, RO ; 2129 
000164 016066 000016 000002 MOV 16(RO),2(SP) ; &, TMP..LOCATION 
000172 016637 000002 MOV 2(SP),CSR. WORD ; TMP. LOCATION, « 
000200 012746 000000G MOV @Msc59, -(SP) : 2130 
000204 012746 000001 MOV #1, -(SP) 
000210 01 MOV SP ,RO ; SP,* 








Max i mum stack depth per invocation: 


CZQNAEO DEQNA FUNCTIONAL TEST 
GLOBAL ROUTINE - CHK_RX_LPSTATUS ( P1, P2 ) 


000012 
000000G 


012746 000000G 
000003 


000012 
2$: 


88 words, 


Routine Base: 
9 words 


27-Mar-1986 07:37:39 
26-Mar-1986 17:01:05 


TRAP 0s «14 
MOV 12¢SP). (SP? 
MOV TEMP2,-( <P 
MOV 8MSG16, -(SP) 
MOV $3, -(SP) 

MOV SP ,RO 

TRAP «14 

TRAP 3=s-s«§5 

\WORD 12 

“WORD  MSGOO 

"WORD ERROR$REPORT 
ADD #12, SP 

CMP (SP5+,(SP)-+ 
RTS pC 


AC$CODE$ + 2656 


SEQ 250 
VAX-11 Bliss-16 V4.0-579 
DISK2: [SCODA.QNA.ZQNA )ZQNA4 .BLI;1 


; P2,* 


a SP ,# 


— ——— EEE 


Page 


30 
(15) 


2131 


2132 


2127 
2072 


ZQNA4 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39 VAX-11 . on a 
v01.0 GLOBAL ROUTINE - COMPARE_PACKETS ( ) Benet ee ori aT ee URSKS LSEODR OMA ZONATZONAS.BLI;1 C16) 

2137 SSBTTL ‘GLOBAL ROUTINE - COMPARE_PACKETS ( )' 

2139 GLOBAL ROUTINE COMPARE_PACKETS : NOVALUE = 

2141 tes 

2142 ' 

2143 : GLOBAL ROUTINE : COMPARE _PACKETS 

2145 ' DESCRIPTION: 

set thie rout - 

' is ine compares contents of transmit t to the t 

ripe ; of receive packet and prints an error neosage f the don’t eau. 

2150 ’ 

2151 BEGIN 

2152 

Stes i GET RECEIVE BYTE LENGTH ( RBL ) OMPUTE WORD 

' FROM RCV DISCRIPTOR AND 

2135 ! LENGTH. THEN COMPARE ACTUAL TO EXPECTED RCV WORD LENGTH. . . 

2157 > 

2158 TEMPS = 0; 

2159 

2160 IF GET_BIT ( CSR, LB ) GTRU ZERO 

2161 THEN 

21 TEMPS = .RCV_D_LIST ( STWD1 ] AND RHL_MASK; ' 0'003400' 


3 1 
; 1 
; 1 
; 1 
; 1 
; 1 
; 1 
: 1 
: 1 
; 1 
3 1 
; 1 
; 1 
: i 
; 2 
$ 2 
; 2 
: 2 
; 2 
; 2 
5 2 
; 2 
$ 2 
; 2 
; 2 
; 2 
; 2 
; el 2 
; 2 
; 3 
; 2 
; 2 
: 2 
; 2 
; 2 
; 3 
; 3 
; 3 
; 3 
; 3 
; 3 
; < 
; 2 
; 2 
; 3 
$ 3 
3 3 
; 3 
; 3 
$ S 
: 3 
; 3 
$ 3 


IF ( .CSR_WORD AND #0'01' ) EQLU ZERO 
TEMPS = .TEMP3 + ( .RCV_D_LIST [{ STWD2 ] AND RLL_MASK ) § Q'000377' 
TEMPS = 6; 
IF .TEMP3 NEQU .RBUF_LENGTH 
THEN 
BEGIN 
ERR_FLAG = ONE; 
CSR_WORD = GET > { CSR_ALL ]; 
PRINTB ( gt ee EBON). 
See OMT: suo” EhROneMEPORT Dn 
END ; 
INCR INDEX FROM O TO .TEMPS3 - i DO 
BEGIN 
IF .RCV_D_LIST [ STWD1 ] EQLU NEWB 
RCV_BUFFER [ .INDEX ] = ZERO; 
IF .XMIT_BUFFER [ .INDEX ]) NEQU .RCV_BUFFER [ .INDEX ] 
IF .RCV_D_LIST [ LONGP 
TIEN [ ) EQLU ONE 








nm 

ras 

© 

~ 
HPWH PPP SaWhhaD 


27-Mar-1986 07:37:39 Lo Bliss-16 V4.0 


CZQNAEO DEQNA FUNCTIONAL TEST 


GLOBAL ROUTINE - COMPARE_PACKETS ( ) 26-Mar-1986 17:01:05 
BEGIN 
TEMPS = . INDEX; 
EXITLOOP; 
END 
SE 
BEGIN 
ERR_FLAG = ONE; 
CSR-WORD = GET. BIT [ CSR_ALL ]; 
PRINTB ( MSG59 ); 
PRINTB ( MSGS1 ); 
PRINTB ( MSG5O, .RCV_BUFFER [ .INDEX ], .XMIT_BUFFER [ .INDEX J], INDEX ); 
engRROF ( 0012, MSGOO, ERROR$REPORT ); 
END; 
END; 
SBTTL COMPARE.PACKETS GLOBAL ROUTINE - COMPARE_PACKETS ( ) 
0000006 COMPARE PACKETS: : 
JSR 1, $SAVE2 
CMP Rie (SP) 
0000006 CLR Tees 
0000006 MOV REG. ADR,RO 
000016 MOV 16(RO), -(SP) ; &, TMP.LOCATION 
001400 BIT #1400, (SP) : &. TMP .LOCATION 
0000106 0000006 MOV RCV.D.LIST+10, TEMP3 ; 
174377 000000G BIC #174377, TEMPS 
000001 0000006 1$: BIT #1,CSR.WORD 
BNE 2$ 
CLR Ri 
0000126 BISB RCV.0.LIST+12,R1 
ADO Ri, TEMP3 
BR 3$ ; 
000006 0000006 2$ MOV #6, ; 
0000006 0000006 3$ CHP TEMP 3, RBUF .LENGTH ; 
000001 0000006 MOV #1,ERR.FLAG 
000016 000002 MOV 16(RO), 2¢SP) ; &, TMP.LOCATION 
000002 0000006 MOV 2(SP),CSR. WORD : THP.LOCATION, * 
MOV @MSG59, -(SP) ; 
000001 MOV #1,-(SP) 
MOV SP ,RO ; SP ,* 
TRAP 14 
0000006 MOV RBUF . LENGTH, (SP) ; 
0000006 MOV TEMPS, -(SP) 
0000006 MOV #MSG17, -(SP) 
000003 MOV #3, -(SP) 
MOV SP ,RO 3 SP, * 
TRAP ss «14 
TRAP 3=«-«§ ; 
WORD 13 
"WORD 


579 SEQ 252 
SK2:SCODA. GNA. ZQNA3ZQNA4 GLI; 1 





32 
oF 16) 


2177 











ZQNA4 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39  VAX-11 Bliss-16 V4.0- 33 
V01.0 GLOBAL ROUTINE - COMPARE_PACKETS ( ) 26-Mar-1986 17:01:05  DISK2:(SCODA.QNA.ZQNA)ZQNA4.BLI;1 (16) 
000176 _WORD ERROR$REPORT 
000200 706 000012 ADD #12, SP 2172 
013702 000000G MOV TEMP3 ,R2 ; 2180 
000210 1 CLR Ri ; INDEX 
000212 74 BR 9$ 
000214 025727 0000106 100000 CHP RCV. .D.LIST+10, #-100000 2182 
105061 0000006 CLRB  RCV.BUFFER(R1) ; *CINDEX) 2184 
000230 126161 000000G 0000006 CMPBséXMIT.. BUFFERCRI), RCV.BUFFER(R1) ; #*C INDEX), «C INDEX) 2186 
000236 001461 BEQ $ 
000240 0 040000 0000106 BIT #40000, RCV.D.LIST+10 ; 2188 
000246 BEQ 7$ 
000250 010137 0000006 MOV Ri, TEMPS ; INDEX, + 2191 
000254 BR 10$ 2190 
000256 012737 000001 0000006 MOV #1,ERR.FLAG , 2196 
000264 013700 MOV REG. ADR,RO ; 2197 
000270 01 000016 000004 MOV 16(RO),4(SP) ; &, TMP.LOCATION 
000276 01 MOV 4(SP),CSR.WORD : TMP .LOCATION, « 
000304 012746 MOV #mMSG59, -(SP) : 2198 
000310 012746 000001 MOV #1, -(SP) 
000314 01 MOV SP ,,RO ; SP,* 
16 104414 TRAP 14 
320 012716 MOV #MSG51, (SP) : 2199 
012746 000001 MOV #1,-(SP) 
000330 01 MOV SP ,RO ; SP, 
000332 TRAP «14 
000334 010116 MOV Ri, (SP) ; INDEX,* 2200 
000336 CLR -(SP) 
000340 116116 0000006 MOVE § XMIT.BUFFER(R1),(SP) ; *C INDEX), * 
000344 CLR -(SP) 
000346 116116 000000G MOVB RCV.BUFFER(R1),(SP) ; (INDEX), +* 
000352 012746 000000G MOV @MSG50, -(SP) 
000356 012746 000004 MOV #4, -(SP) 
10600 MOV SP RO ; SP,* 
000364 104414 TRAP 14 
366 104455 TRAP «455 ; 2201 
000370 000014 .WORD 14 
372 “WORD 
000374 "WORD ERRORSREPORT 
062706 000016 ADD $16 ,SP ; 2195 
000402 005201 8$: INC Ri ; INDEX 2180 
000404 020102 9$: CMP R1,R2 ; INDEX, * 
000406 002702 BLT 5 
000410 062706 000006 10$: ADD #6, SP : 2139 
000414 000207 RTS PC 
; Routine Size: 135 words, Routine Base: ACS$CODE$ + 3136 


; Maximum stack depth per invecation: 15 words 








SEQ 254 


ZQNA4 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39  VAX-11 Bliss-16 V4.0-579 Page 34 
v01.0 GLOBAL ROUTINE - SET_RDESCR_LIST ( Pi, P2) 26-Mar-1986 17:01:05  DISK2:(SCODA.QNA.ZQNA)ZQNA4.BLI;1 (17) 
; 2207 1 SSBTTL ‘GLOBAL ROUTINE - SET_RDESCR_LIST ( Pi, P2)' 
> 
; 2209 i GLOBAL ROUTINE SET_RDESCR_LIST ( P1, P2 ) : NOVALUE = 
; 
: 22ii 1 tee 
; 22i2 i ! 
; 2215 i : GLOBAL ROUTINE : SET_RDESCR_LIST 
: 3 
; 2215 1 ' DESCRIPTION: 
; 2216 1 ' 
: se : This routine initializes receive descriptor list. 
; 3 
; 2219 1 1 INPUT PARAMETERS: 
2221 i Pi ted Ethernet packet length ds 
3 s - expec rne e in wor 
; ee22 1 : P2 - expected RCV Descriptor List settings 
; 22235 i ! 
; 2224 1 $-- 
;: a - 
; 2226 2 BEGIN 
; 2227 2 
; 2228 2 RCV_D_LIST { FLGWD ) = NEWB; 
; 2229 2 RCV_D_LIST { DBITS ) = .P2; 
; 2230 2 RCV_D_LIST [ LOADR = RCV_BUFFER 
; 2231 2 RCV_D_LIST [ TWOL = Pi; 
; 2232 2 RCV_D_LIST { STWD1 = 0; 
; 2233 2 “D_LIST { STW2 ) = 0; 
; 2234 2 RCV_D_LIST { DLINK ) = V; 
; 2235 2 RCV_D_LIST [{ BSTAT = €E; 
; 2236 2 
; 2237 1 END; 
.SBTTL SET. RDESCR.LIST GLOBAL ROUTINE - SET_RDESCR_LIST ( P1, P2) 
000000 012737 100000 000000G SET.RDESCR.LIST: : 
MOV $-100000, RCV.D.LIST ; 2228 
016637 000002 000002G MOV 2(SP),RCV.0.LIST+2 ; P2,* 2229 
000014 012737 000000G 000004G MOV oneV BUFFER: RCV. D.LIST+4 ; 2230 
016637 000004 000006G MOV aCSP) RCV. D.LIST+6 ; Pl,* 2231 
000030 005037 000010G CLR RCV.0.LIST+10 ; 2232 
000034 005037 0000126 CLR RCV.D. LIST«12, ; 2233 
000040 737 100000 000014G MOV #100000 RCV.D.LIST+14 ; 2234 
000046 012737 020000 0000166 MOV 20000, RCV.D.LIST+16 : 2235 
000054 000207 RTS ; 2209 
; Routine Size: 3 words, Routine Base: AC$CODE$ + 3554 
; Maximum stack depth per invocation: 0 words 


; 2238 1 
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GLOBAL ROUTINE - SET_XDESCR_LIST ( P1, Pe ) 26-Mar-1986 17:01:05 DISK2: (SCODA.QNA.ZQNAJZQNA4 .BLI;1 (18) 


SSBTTL ‘GLOBAL ROUTINE - SET_XDESCR_LIST ( Pil, P2 )' 
GLOBAL ROUTINE SET_XDESCR_LIST ( P1, P2 ) : NOVALUE = 


GLOBAL ROUTINE : SET_XDESCR_LIST 
DESCRIPTION: 

This routine initializes transmit descriptor list. 
INPUT PARAMETERS: 


Pl - expected Ethernet packet length in words 
P2 - expected XMIT Descriptor List settings 


PRM ER RRR RRR RRR RRR ERR HE 


BEGIN 
XMIT_D_LIST { FLGWD ] = NEWB; 
XMIT_D_LIST { DBITS J) = .P2 i 
XMIT_D_LIST { LOADR ) = XMIT_BUFFER; 
XMIT_D_LIST [ TWDL = Pi; 
T_D_LIST { STWD1 } = 0; 
XMIT_D_LIST { STWD2 J = 0; 
XMIT_D_LIST { DLINK ] = V; 
XMIT_D_LIST { BSTAT } = E; 
END; 
_SBTTL SET.XDESCR.LIST GLOBAL ROUTINE - SET_XDESCR_LIST ( Pi, P2 ) 
012737 100000 0000006 SET. XDESCR.LIST:: 
MOV #-100000, XMIT.D.LIST ; 2260 
016637 000002 0000026 MOV 2¢ SP), XMIT .D.LIST+2 ; P2,* 2261 
12 000000G 0000046 éXMIT .BUFFER, XMIT. 6. LIST+4 ; 2262 
016637 000004 000006G MOV 4(SP),XMIT.D.LIST+6 ; Pl,* 2265 
005037 0000106 CLR XMIT.0.LIST+i0 ; 2264 
005037 0000126 CLR XMIT.D.LIST+12 ; 2265 
012737 100000 000014G MOV #-100000, XMIT.D.LIST+14 ; 2266 
012737 020000 000016G MOV $20000. XMIT.D.LIST+16 ; 2267 
000207 RTS PC ; 2241 
; Routine Size: 23 words, Routine Base: AC$CODE$ + 3632 


; Maximum stack depth per invocation: 0 words 


; 2270 1 


Sea -- CS 





SEQ 256 


TEMP2 = .P2 MOD 8; 
IF_.Pi EQLU ZERO 
THEN 


BEGIN 
TBYTE1 = #8'00000000' ; 
“= . TEMP2 OF 


2315 0 TBYTES = #0'001'; 
2316 1 TBYTES = #0'002' ; 
2317 2 TB = £0'004' 
2318 3 TBYTES = #0'010'; 
2319 4 = 60 

2320 5 TBYTES = #0'040' ; 
2321 6 TBYTES = #0'100' ; 


TBYTES = #0‘ 200' ; 
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v01.0 GLOBAL ROUTINE - WALKING_BIT ( Pi, P2, P3 ) 26-Mar-1986 17:01:05 DISK2:(SCODA.QNA. TaNATZONAS.. BLI;1 (19) 
: goth ; *SBTTL ‘GLOBAL ROUTINE - WALKING_BIT ( Pi, P2, P3 )' 

; 

$ Ak ; GLOBAL ROUTINE WALKING_BIT ( Pi, P2, P3 ) : NOVALUE = 
; 

> am & tee 

; e276 1 ! 

; e277 1 ' GLOBAL ROUTINE : WALKING_BIT 

; e276 1 ! 

; e279 1 ' DESCRIPTION: 

; 2280 1 : 

; 2261 1 : This routine sets bit to 0 or 1 in a specified bit position of the 
; 2262 1 : Ethernet Station Address. For example, 

; 2283 1 ! 

; 2264 1 ! if 

; 2285 1 ! .P1 =O and .P2 = 15 P3=5 

; 2286 1 ! 

; pod : Ethernet Station Address = FF-FF-FF-FF-7F-FF 
; ! 

; 2289 1 ! INPUT PARAMETERS: 

; 2290 1 ! 

;' a + : Pi - bit ( O orl ) 

; e292 1 ! P2 - bit position from base address 

; 2293 1 ! P3 - # of bytes to be tested using this pattern 
; 22984 1 ! 

; 22955 1 !-- 

; 2296 1 

; 2e97 2 BEGIN 

; 2298 2 

; 2299 2 SELECTONE .P2 OF 

; 2300 2 

; 2301 2 { 0T0 7]: 

; 2302 2 i = 0% 

; 2303 2 { 8 TOC .P3 +1)%#8): 

; 2304 2 TEMP1 = .P2 / 8; 

’ 2305 2 TES; iy 

; 2306 2 

; 2 

; ° 

; 2 

; 2 

; 3 

; 3 

; 3 

; 3 

$ 3 

; 3 

; 3 

; 3 

; 3 

; 3 

; 3 

; 3 

; 3 


m 
wn 








SEQ 257 
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V01.0 GLOBAL ROUTINE - WALKING_BIT ( Pi, P2, P3 ) 26-Mar-1986 17:01:05  DISK2:(SCODA.QNA.ZQNA)ZQNA4.BLI;1 (19) 
; 2324 3 
> ws 2 ELSE 
; 2326 3 BEGIN 
, wa 8 TBYTE1 = #8/11111111'; 
; 2328 3 SELECTONE .TEMP2 OF 
; 2329 3 SET 
; 2330 3 0 TBYTE3 = #0'376'; 
. an Ss i TBYTES = #0'375'; 
; 2332 3 2 TBYTES = #0'373'; 
; 2333 3 3 = $0’ 367' 
; 2334 3 4 TBYTES = #0'357'; 
; 2335 3 5 TES = 80'337'; 
; 2336 3 6 1: TBYTE3 = #0'277'; 
|, on s 7]: TBYTES = #0'177'; 
; 2338 3 ES; 
; 2339 2 END; 
; 2340 2 
; 2341 2 INCR INDEX FROM 0 TO .P3 DO 
; 2342 2 TARGET_ADR [ .INDEX } = .TBYTE1; 
; 2343 2 
; 2344 2 TEMP3 = .P3 - .TEMP1; 
; 2345 2 TARGET_ADR [ .TEMP3 ) = .TBYTE3; 
; 23546 2 
. gaer & END; 

_SBTTL WALKING.BIT GLOBAL ROUTINE - WALKING_BIT ( P1, P2, P3 ) 
000000 004137 0000006 WALKING.BIT: : 

JSR R1, $SAVE2 ; 2273 
000004 016602 000012 MOV 12¢SP),R2 ; P2,* 2299 
000010 002406 BLT i$ ; 2301 
000012 020227 000007 CMP R2,97 
000016 003003 BGT i$ 
000020 005037 000000G CLR TEMP1 ; 2302 
000024 000421 BR 2§ ; 2299 
000026 020227 000010 1$: CMP R2, 410 : 2303 
000032 002416 BLT 2$ 
000034 016600 000010 MOV 10(SP),RO ; P3,* 
000040 072027 ASH #3,RO 
000044 700 000010 ADD #10,RO 
000050 CMP ,RO 
000052 003006 BGT 2$ 
000054 010201 MOV R2,R1 : 2304 
000056 700 SXT 
000060 071027 000010 OIV #10,RO 
000064 0 MOV RO, TEMP4 
000070 010201 2$: MOV R2,R1 ; 2307 
000072 7 SXT RO 
000074 071027 000010 DIV #10,RO 
000100 010137 0000006 MOV R1, TEMP2 
000104 010100 MOV 1,RO ; TEMP2,* 2313 
000106 000014 TST 14(SP) ; Pl 2309 
000112 001071 BNE 10$ 
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v01.0 GLOBAL ROUTINE - WALKING_BIT ( Pi, P2, P3 ) 26-Mar-1986 17:01:05  DISK2:(SCODA.QNA.ZQNA)ZQNA4.BLI;1 
000114 005037 0000006 CLR TBYTE1 
000120 005700 TST RO 
000 001 BNE 3$ 
000124 012737 000001 0000006 MOV #1, TBYTES 
000132 000552 BR 18$ , 
000134 020027 000001 3$: CMP RO, #1 
000140 BNE 
000142 012737 000002 0000006 MOV $2, TBYTE3 
000150 BR 18$ ; 
000152 020027 000002 4s: CMP R0,¢2 
000156 BNE 
000160 012737 000004 0000006 MOV #4, TBYTES 
000166 000534 BR 18$ 
000170 020027 000003 S$: CMP RO, #3 
000174 001004 BNE 6$ 
000176 012737 000010 0000006 MOV #10, TBYTE3 
000204 000525 BR 18$ 
000004 6$: CHP RO, 04 
000214 012737 000020 0000006 MOV $20, TBYTE3 
000516 BR 18$ ; 
020027 000005 7$: CMP RO, ; 
000230 001004 BNE 8$ 
000232 012737 000040 0000006 MOV #40, TBYTE3 
000240 00050 BR 18$ 
000242 020027 000006 8S: CMP RO, 
000246 BNE 9$ 
000250 012737 000100 000000G MOV $100, TBYTE3 
000256 000500 BR 18$ ; 
000260 020027 000007 9$: CMP RO, #7 ; 
000264 001075 BNE 18$ 
000266 0 000200 0000006 MOV $200, TBYTE3 
000274 000471 BR 18$ ; 
000276 012737 000377 000000G 10$: MOV $377, TBYTEL ; 
000304 005700 TST RO : 
001 BNE 11$ 
000310 012737 000376 000000G MOV #376, TBYTE3 
000316 BR 18$ ; 
000 000001 11$: CMP RO, #1 : 
000324 BNE 12$ 
000326 012737 000375 000000G MOV #375, TBYTES 
000334 51 BR 18$ 
000336 020027 000002 12$: CMP RO, #2 
000342 001004 BNE 13 
000344 012737 000373 0000006 MOV $373, TBYTES 
000352 000442 BR 18$ 
000354 020027 000003 13$: CMP RO, #3 
000360 001 BNE 14 
012737 000367 0000006 MOV $367, TBYTE3 
000370 BR 18$ 
000372 020027 000004 14$: CMP RO. 
000376 001004 BNE 


15$ 
$357, TBYTE3 


o 
S 
g 
: 
5 








000530 


; Routine Size: 
; Maximum stack depth per invocation: 


; 2348 1 


CZQNAEO DEQNA FUNCTIONAL TEST 
GLOBAL ROUTINE - WALKING_BIT ( P1, P2, P3 ) 


000010 
000010 000000G 
000000G 000000G 
000000G 
000000G 000000G 


173 words, 


15$: 


16$: 


17$: 


18$: 
19%; 
20$: 


SES the aD oRe SRS ome 


27-Mar-1986 07:37:39 
26-Mar-1986 17:01:05 


18$ 
16 
#337, TBYTES 
18$ 


17$ 

$277, TBYTE3 
18$ 

RO, #7 

18 

$177, TBYTE3 
RO 


20$ 

TBYTE1, TARGET . ADR(RO) 
RO, 10(SP) 

10(SP), TEMP3 

TEMP1, TEMP3 


EMP3. RO 3 
TBYTES, TARGET .ADR(RO) 


Routine Base: AC$CODE$ + 3710 
rds 


4 wo 


VAX-11 Bhi ge 6 be Fe Th 
DISK2:(SCODA. . ZQNA )ZQNA4 .BLI;1 


; INDEX 

; *, *C INDEX) 
; INDEX 

; INDEX,P3 

; P3,* 


Page 


39 
(19) 
2328 
2335 


2328 
2336 


2328 
2337 


2341 





ee ee ee Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge Ge Se GF Ge Ge Se Se Se Ge Se Ge Ge Se Ge Ge Gt Ge Ge © Ge Gf Ge Se Ge GF Ge Ge Ge oe oe 
10 ON NA CAI PO CA HE GEO PO NO PO PO PO PON PO NO NPONPO NIN DD Fe ee ee ee ee 


eo 


SEQ 260 
CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39 VAX-11 Bliss-16 V4.0-579 
GLOBAL ROUTINE - WRT_STATION_ADR ( Pi, P2 ) 26-Mar-1986 17:01:05 DISK2: [SCODA.QNA.ZQNAJZQNA4 .BLI;1 


SSBTTL ‘GLOBAL ROUTINE - WRT_STATION_ADR ( Pi, P2 )' 
GLOBAL ROUTINE WRT_STATION_ADR ( Pi, P2 ): NOVALUE = 


GLOBAL ROUTINE : WRT_STATION_ADR 
DESCRIPTION: 

This routine writes Station Address to XMIT_BUFFER. 
INPUT PARAMETERS: 


Pi - Ethernet Station Address index (1:14) in Station Address RAM 
P2 - Ethernet Station Address index ( 0:19 ) in the TARGET_ADR table 


: 
' 
‘ 
' 
‘ 
' 
: 
’ 
’ 
‘ 
i 
i 
‘ 
’ 
BEGIN 

TEMP1 = .P2 * 6; 
SELECTONE .P1 OF 


{ 0T0 7]: 

TEMP2 = .P1; 
{ 8170 14]: 

TEMP2 = .Pi + 57; 
TES; 


IF_.TEMP2 EQLU ZERO 
INCR INDEX FROM 0 TO 5 DO 
— { .INDEX ] = .TARGET_ADR [ .INDEX + .TEMP1 J; 


ELSE 
INCR INDEX FROM 0 TO 5 DO 
BEGIN 


TEMP3 = INDEX « 8 + .TEMP2 
XMIT BUFFER [ .TEMP3 ] = .TARGET_ADR ( .INDEX + .TEMP1 ]; 
3 


END; 
_SBTTL WRT.STATION.ADR GLOBAL ROUTINE - WRT_STATION_ADR ( Pi, P2 ) 
0000006 WRT. STATION. ADR: : 
JSR R1, $SAVE3 ; 
000012 MOV 12¢SP),Ri ; P2,* 
000006 MUL a6. 
0000006 MOV 1, TEMP 
000014 MOV TAtSP). RO ; Pl,® 











SEQ 261 
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v01.0 GLOBAL ROUTINE - WRT_STATION_ADR ( Pi, P2 ) 26-Mar-1986 17:01:05 SK2: [SCODA.QNA. ZQNA]ZQNA4 .BLI;1 (20) 
000024 002406 BLT i$ 2374 
000026 020027 000007 CMP RO, #7 

000032 003003 BGT i$ 

000034 010037 0000006 MOV RO, TEMP2 2375 
000040 000413 BR 2$ 2372 
000042 020027 000010 1$: CMP RO, #10 2376 
000046 002410 BLT 2$ 

000050 000016 CMP RO, #16 

000054 BGT 2$ 

000056 010037 MOV RO, TEMP2 2377 
000062 000071 0000006 ADD #71, TEMP2 

000070 013703 2s: MOV TEMP2,R3 2380 
000074 001014 BNE 4$ 

000076 CLR RO INDEX 2382 
000100 010001 3$: MOV RI INDEX, * 2384 
000102 063701 000000G ADD 1,R 

000106 116160 000000G 0000006 MOVB §_TARGET.ADR(R1),XMIT.BUFFER(RO) ; *,*( INDEX) 

000114 005200 INC RO INDEX 2382 
000116 020027 000005 CMP RO, #5 INDEX, * 

000122 003766 BLE 3$ 

000124 000207 RTS PC 2380 
000126 4$; CLR R2 INDEX 2387 
000130 01 S$: MOV R2,RO INDEX, # 2389 
000132 072027 000003 ASH $3,RO 

000136 ADD R3,RO 

000140 010037 0000006 MOV RO, TEMP3 

000144 01020 MOV R2,R1 INDEX, * 2390 
000146 063701 000000G ADD TEMP1,R1 

000152 116160 000000G 0000006 MOVB §_ TARGET. ADR(R1),XMIT.BUFFER(RO) 

000160 INC R2 ; INDEX 2387 
000162 020227 000005 CMP R2,¢5 ; INDEX, « 

000166 003760 BLE 5$ 

000170 000207 RTS PC 2351 
; Routine Size: 


s 23935 1 


1 words, Routine Base: ACSCODE$ + 4442 
; Maximum stack dent per invocation: words 





SEQ 262 


ZQNA4 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39 VAX-11 Bliss-16 V4.0-57 Page 42 
vo1.0 GLOBAL ROUTINE - PREP_FOR_SETUP ( ) 26-Mar-1986 17:01:05 DISK2:(SCODA.QNA. TONAZONAA. BLI;1 (21) 
: ES ba : SSBTTL ‘GLOBAL ROUTINE - PREP_FOR_SETUP ( ) ' 
: 
; 239% 1 GLOBAL ROUTINE PREP_FOR_SETUP : NOVALUE = 
; 2397 1 
; 23 1 tee 
; 2399 1 ' 
: oat : GLOBAL ROUTINE : PREP_FOR_SETUP 
: ' 
: sees ; DESCRIPTION: 
: ! 
; 2404 1 ' This routine retrives Ethernet Station Address from the Ethernet's 
; 2405 1 : Station Address PROM, saves copy of Ethernet Station Address 
; 2406 1 ! in the TARGET_ADR vector, initializes transmit and receive buffers 
; roe dl : to A and finally sets buffer length to select promiscuous mode. 
: ! 
; 2409 1 ! INPUT PARAMETERS: 
; 2410 1 ! 
; 2411 1 ' none 
; e412 1 !-- 
; 2413 1 
; 2414 2 BEGIN 
BEB 
; See 
; 2417 2 ' RETRIEVE ETHERNET PHYSICAL STATION ADDRESS AND SAVE A COPY OF IT IN THE 
; 2418 2 ! ‘TARGET_ADR‘ VECTOR. 
; 2419 2 !-. 
; 2420 2 
; 2421 : INCR INDEX FROM O TO 5 DO 
; 2422 
; 2423 3 TBYTE1 = —<T ADR [ » ST_ADOR J 
; Baza 3 TONUET ADA EC PHACINDEX #6 J+ INDEX ) = .TBYTEL; 
; 2425 2 ; 
; 2426 2 
; 2427 2 CLR_BUFFERS ( 256 ); 
; 2428 2 
; 2429 1 END; 
.SBTTL PREP.FOR.SETUP GLOBAL ROUTINE - PREP_FOR_SETUP ( ) 
000000 010146 PREP .FOR.SETUP: t. 
MOV -(SP) ; 23% 

000002 005746 TST Rep) 
000004 005001 CLR Ri ; INDEX 2421 
000006 010100 1$: MOV R1,RO ; INDEX,* 2425 
000010 006300 ASL Sk 
000012 000000G ADD 
000016 011016 MOV RO) wth ; #, TMP LOCATION 
00002) 000000G CLR TBYTE1L 
000024 111637 000000G MOVB (SP), TBYTE1L 

111661 000162G MOVB (SP), TARGET. ADR+162(R1) ; *,*#C INDEX) 2424 
000034 005201 INC Ri ; INDEX 2421 
000036 127 000005 CMP R1,#5 ; INDEX,* 

003761 BLE i$ 








ZQNA4 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39 VAX-11 Bliss-16 V4.0-57 Page 43 
v01.0 GLOBAL ROUTINE - PREP_FOR_SETUP ( ) 26-Mar-1986 17:01:05  DISK2:(SCODA.QNA. ZQNAIZONAA. BLI;1 (21) 
000044 012746 000400 MOV #400, -(SP) ; 2427 
000050 004737 001234’ JSR PC, CLR. BUFFERS 

000054 022626 CMP (SP)+,(SP)-+ ; 2396 
000056 012601 MOV (SP)+,R1 

000060 000207 RTS PC 

; Routine Size: 25 words, Routine Base: ACS$CODE$ + 4634 


; Maximum stack depth per invocation: 4 words 


; 2430 1 
; 2431 1 
; 2432 1 


ew. eee ee oe 





POMP POPPIN WWWWNWAUITR RRND WAAWANNRNNMNNNNNNNRNDR PRR RRR RRR RRR eee eee 


SE 
CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39 VAX-11 Bliss-16 V4.0-579 ales 
GLOBAL ROUTINE - FORM_HEX_ADR ( P3 ) 26-Mar-1986 17:01:05 DISK2: [SCODA.QNA.ZQNA)ZQNA4 .BLI;1 


SSBTTL ‘GLOBAL ROUTINE - FORM_HEX_ADR ( P3 ) ' 
GLOBAL ROUTINE FORM_HEX_ADR ( P3 ) : NOVALUE = 


a 
> 


GLOBAL ROUTINE : FORM_HEX_ADR 
DESCRIPTION: 


This routine retrives Ethernet Station Address from the Ethernet’'s 
Station Address PROM, saves its copy in the TARGET_ADR vector. 


INPUT PARAMETERS: 
P3 - Index to Station Address in the TARGET_ADR vector 


Soe 
' RETRIEVE ETHERNET PHYSICAL STATION ADDRESS AND SAVE A COPY OF IT IN THE 
'TARGET_ADR‘ AND ‘STATION_ADR’ VECTORS. 
IF .P3 EQLU ZERO 
THEN 
TEMPS = 0 
ELSE 
TEMPS = .P3 * 6; 
INCR INDEXS FROM O TO 5 DO 
BEGIN 
TBYTEL = cat ADR { .INDEXS, ST_ADDR ]; 
TARGET_ADR 


{ © PHA_INDEX * 6 ) + .INDEXS ) = .TBYTE1; 
; 


COUNTER = ZERO; 
a ee eee 


TEMP1 = .TARGET_ADR { .TEMPS + .INDEXS ]; 
TEMP1 = oe 


TEMP2 = .TARGET ch si JINDEXS + 1 Js 
STATION_ADR [ COUNT j= .TEMPi OR C .TEMP2 AND %0'000377' ); 
COUNTER = . COUNTER 


See 
! PRINT ETHERNET STATION ADDRESS ON THE CONSOLE 


COUNTER = 18; 





G&G 
(22) 








HK MMNIPHSHPHAHLHPAPVIUUVVUVVIVIVIVIUL ® & IWIN PO PO Mofo Non 





SEQ 265 


CZ@NAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39  VAX-11 Bliss-16 V4.0-579 Page 45 
GLOBAL ROUTINE - FORM_HEX_ADR ( P3 ) 26-Mar-1986 17:01:05  DISK2:(SCODA.QNA.ZQNA)ZQNA4.BLI;1 (22) 
PHYS ADR [ 0 ] = C's’; 
PHYS_-ADR [1 ] = sC’A'; 
PHYS_ADR { 19 ] = sC’ ' 
PHYS_ADR [{ 20 ] = sC's'; 
PHYS_ADR [ 21 ] = sC‘N’; 
DECR INDEX1 FROM 2 TO 0 DO 
TEMP3 = .STATION_ADR [{ .INDEX1 ); 
INCR INDEX2 FROM O TO 1 DO 
INCR INDEX3 FROM 0 TO 1 DO 
TEMP1 = .TEMP3 AND sX'F! 
IF .TEMPi LEQU DECIMAL: 9° 
TBYTE = $C'O' + . TEMP 
TBYTE1 = sC’A’ + ( .TEMP1 - SDECIMAL'10’ ); 
PHYS_ADR | .COUNTER ] = .TBYTE1; 
c = COUNTER - 1 
TEMPS = .TEMP3 t ( -4 9; 
END; 
IF .COUNTER GTRU 2 
PHYS_ADR [ .COUNTER } = sC’-'; 
COUNTER = .COUNTER - 1; 
END; 
END; 
END; 
SBTTL FORM.HEX.ADR GLOBAL ROUTINE - FORM_HEX_ADR ( P3 ) 
0000006 FORM.HEX.ADR: : 
JSR Ri, $SAVE3 2435 
TST -($P 
000014 MOV 14(SP),RO ; P3,* 2458 
BNE 1$ | 
0000006 CLR TEMPS ; 2460 
BR 2$ ; 2458 
1$: MOV RO,R1L ; 2462 
000006 MUL #6,R1 
0000006 MOV Ri. TEMPS 
2$: CLR RO ; INDEXS 2464 
3$: MOV RO,R1 ; INDEXS,* 2466 
ASL Ri 
0000006 ADD REG. ADR 
MOV (R1), (SP) ; *, TMP.LOCATION 
0000006 CLR YTE1 








111637 
111660 


CZQNAEO DEQNA FUNCTIONAL TEST 
GLOBAL ROUTINE - FORM_HEX_ADR ( P3 ) 


000000G 
000162G 


4$: 


8$: 
9$: 


— 


ow 
- 
a) 


MOV 
CMP 
BHI 
MOV 
ADD 
BR 
MOV 
ADO 
MOV 
MOVB 
DEC 
MOV 
ASH 
MOV 
SOB 


27-Mar-1986 07:37:39 
26-Mar-1986 17:01:05 


RARGET. ADR+1(R1). TEMP2 
TEMP2+i 


_— »R1 


RO 

TEMP2 ,RO 

TEMP1.RO 

RO, STATION. ADR(R1) 
COUNTER 

$2,R2 
R2,¢5 


‘PHYS. ADR+24 
e116. PHYS. ADR+25 


#4,Ri 
STATION. ADR(R1), TEMP3 
$2,R3 


TEMPS, TEMP1 

#177760, TEMP1 
TEMP1 RO 
RO, #14 


8 
RO, TBYTE1 
#60, TEYTEL 


RO, TBYTEL, 
Boo TB 


RAO 
TBYTE1 , PHYS. ADR(RO) 





TBYTE1 
TARGET . ADR+162(RO) 





SEQ 266 
VAX-11 Bliss-16 V4.0-579 Page 46 
DISK2:(SCODA.QNA.ZQNA}ZQNA4 .BLI;1 (22) 


a) 
> 
~ 
oo 


*, INDEX5 2472 
INDEXS, * 


ie INDEXL 3492 
; #C( TNDEX1),# 
#, INDEX2 


SS INDEXS 3497 


RRRVEERE 
8 


: 


; INDEX3,* 2497 





SEQ 267 


ZQNA4 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39 VAX-11 Bliss-16 V4.0-579 
vO1.0 GLOBAL ROUTINE - FORM_HEX_ADR ( PS ) 26-Mar-1986 17:01:05 DISK2: [SCODA.QNA.ZQNA)ZQNA4 .BLI;1 
000410 013702 000000G MOV COUNTER ,R2 ; 
000414 020227 000002 CMP Re, #2 
101403 BLOS 10 
112762 000055 000000G MOVB #55 ,,PHYS .ADR(R2) i 
000430 005337 000000G 10$: DEC COUNTER ; 
000434 07736 SOB R3,6$ ; INDEX2,* 
000436 162701 000002 SUB #2,R1 ; *,INDEX1 
000442 100307 BPL 
000444 005726 TST (SP )+ ' 
000446 000207 RTS PC 


; Routine Size: 148 words, Routine Base: AC$CODE$ + 4716 
; Maximum stack depth per invocation: 6 words 


; 2520 1 
; 2521 1 


a ES SK 





MMMM WWWWPR RRR RNNNDDA RRR RRP RRR RRP RR RRR RR RRR RRR RRR RR RR RE 


SEQ 268 
27-Mar-1966 07:37:39 VAX-11 Bliss-16 V4.0-579 


CZQNAEO DEQNA FUNCTIONAL TEST 
GLOBAL ROUTINE - XMIT_SETUP_PACKET ( P1 ) 26-Mar-1986 17:01:05 DISK2: [SCODA.QNA.ZQNA)ZQNA4 .BLI;1 


SSBTTL ‘GLOBAL ROUTINE - XMIT_SETUP_PACKET ( Pi )' 
GLOBAL ROUTINE XMIT_SETUP_PACKET ( P1 ) : NOVALUE = 


See 
’ - 
GLOBAL ROUTINE : XMIT_SETUP_PACKET 
DESCRIPTION: 
: This routine initializes descriptor lists to transmit and receive 
; unchained Setup loopback packet. After loopback packet has been 
: received DEQNA CSR, transmit and receive status registers are 
: checked for proper status. Finally, transmit and receive packets 
are compared to verify that they are identical. 
: XMIT_D_LIST [ 0 ] = NEWB RCV_D_LIST [ 0 ] = NEWB 
: XMIT_D_LIST [ 1 J = RCV_D_LIST [ 1 ] = VE 
: XMIT_D_LIST [ 2 ] = XMIT_BUFFER RCV_D_LIST [ 2 ] = RCV_BUFFER 
: XMIT_D_LIST { 3 ] = .XBUF_LENGTH RCV_D_LIST [ 3 ] = .XBUF_LENGTH 
? XMIT_D_LIST [ 4 ] = RCV_D.LIST [4] =0 
: XMIT_D_LIST { 5 J] = 0 RCV_D_LIST{ 5] =0 
: XMIT_D_LIST [6] = V RCV_D.LIST {6 )-= V 
XMIT_DLLIST{[ 7 J=€E RCV_DLLIST( 7J=€E 
' 
INPUT PARAMETERS: 
Pl - transmit buffer length in bytes 
i... 
BEGIN 
CLR_DESCR ( ); 
RBUF_LENGTH = .P1; 
XBUF_LENGTH = - ( .RBUF_LENGTH t -1 ); 
SET_RDESCR_LIST ( .XBUF_LENGTH, VE_) 
SET-XDESCR_LIST ( “XBUFLENGTH, VSE ); 
IF_.Pi EQLU A_MODE 
THEN 
BEGIN 
XBUF 


XMIT_AND_RCV_PACKET ( ); 


See 
! COMPARE STATUS REGISTERS TO EXPECTED VALUES 


Page 





48 
(23) 








2 
MMM PPP Np lpofron 


CZQNAEO DEQNA FUNCTI 
GLOBAL ROUTINE - 


CHK_RIXI_STATUS ( ONE ) 
CHK-CSR_STATUS ( CSR.STATUS, CSR_MASK ); 
¢ RFLG_STATUS, RWO1_STATUS ); 


CHK_RCV_STATUS 

TEMPL 

IF .XMIT_D_LI 
THEN 


TEMP1 = #0'002400' ; 
CHK_XMIT_STATUS ( XFLG_STATUS, .TEMP1 ); 


= XWD12_STA 


TUS 
ST [ STE16 ) 


COMPARE _PACKETS ( ); 


END; 


001206’ 


000002 000000G 
000002 


000201 


i$: 


ONAL TEST 
XMIT_SETUP_PACKET ( Pi ) 


US 


.SBTTL XMIT.SETUP.PACKET GLOBAL ROUTINE - XMIT_SETUP_PACKET ( P1 ) 
XMIT . SETUP . PACKET 


MOV 
MOV 
ASR 
NEG 
MOV 
MOV 


BSSHSSESEISSgSsSReGsReyssse 


27-Mar-1986 07:37:39 
26-Mar-1986 17:01:05 


! 0'000400' 


RNS 

ee 
: 
é 
= 


BBBzB 
A 
3 


3? 
ee 
<3 
Be 


% 
© 


* 


: 
z 
2 
2 


~ 


SS8S8S 


Bats: 
Aik 
ee 


QLseAgst 
ene 


z 


ws 
me: 
¢.. 

% 


nes) 
e 
nD 


o => 
re 
; oh 


! 0'100220' 
! 0' 140000’ 


VAX-11 Bliss-16 V4.0-579 
DISK2: [SCODA.QNA.ZQNA)ZQNA4 .BLI;1 


» 0'100220' 
0‘ 020000’ 


! 0'140000', 77727777 


Pi,* 
RBUF .LENGTH, * 


XBUF .LENGTH, * 


Pi,* 


XBUF .LENGTH, * 





p 49 
oF 23) 


2559 








000240 
000244 


; Routine Size: 
; Maximum stack depth per invocation: 


; 2589 
; 2590 


012737 


1 
1 


CZQNAEO DEQNA FUNCTI 
GLOBAL ROUTINE - XMI 


Routine Base: 


27-Mar-1986 07:37:39 


T_SETUP PACKET ( Pi ) 26-Mar-1986 17:01:05 
MOV $400, TEMP1 
BIT #2000, XMIT.D.LIST+10 
ry $400 TEMP 
MOV #-40000, (SP) 
MOV TEMP1, -(SP) 
JSR PC, CHK. XMIT. STATUS 
JSR PC‘ COMPARE . PACKETS 
ADD #14, SP 


AC$CODE$ + 5366 


VAX-11 Bliss-16 V4.0-579 
DISK2: [SCODA.QNA . ZQNA }ZQNA4 .BLI;1 


Page 50 
oF 23) 


2580 
2581 
2583 
2584 


2524 


SEQ 27 
CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39 VAX-11 Bliss-16 V4.0-579 vl: Page Sl 
GLOBAL ROUTINE - SEND_ELOOP_PACKET ( P3 ) 26-Mar-1986 17:01:05 DISK2: (SCODA.QNA.ZQNA )ZQNA4 .BLI;1 (24) 


SSBTTL ‘GLOBAL ROUTINE - SEND_ELOOP_PACKET ( P3 ) ' 
GLOBAL ROUTINE SEND_ELOOP_PACKET ( P3 ) : NOVALUE = 


GLOBAL ROUTINE : SEND_ELOOP_PACKET 
DESCRIPTION: 
This routine initializes transmit and receive descriptor lists and 
packet. Af 


See 
5 
' 
5 
' 
2600 ! 
i 
2602 : then initiates transmissin of a ter 
2603 ! l packet is received DEQNA CSR, transmit and receive status r 
2604 : egisters are checked for proper status. Finally, transmit and receive 
2605 packets are compared to verify that they are identical. 
2607 ! XMIT_D_LIST [ 0 ] = NEWB RCV_D_LIST {[ 0 ] = NEWB 
2608 ! XMIT_D_LIST { 1 ] = VE RCV_D_LIST { 1 J) = VE 
2609 ! XMIT_D_LIST [ 2 ] = XMIT_BUFFER RCV_D_LIST { 2 }] = RCV_BUFFER 
2610 ! _D_ 3.) = .XBUF_LENGTH RCV_D_LIST { 3 } = .XBUF_LENGTH 
2611 ! XMIT_D_LIST [4] =0 RCV_D_LIST [4 ]=0 
2612 ! XMIT_D_LIST [5 J] = 90 RCV_D_LIST {5 ] 20 
2613 ! XMIT_D.LIST [6] V RCV_D_LIST 16] V 
2614 ! XMIT_DLIST{ 7J2€E RCV_D.LIST{[ 7]2z€E 
2615 ! 
2616 ! 
! INPUT PARAMETERS: 
2618 ! 
! P3 - 
2620 !-- 
2621 
2622 BEGIN 
oeoa PUT_BIT ( CSR, LB, INX_LOOPBACK ) 
; 
2625 XMIT_AND_RCV_PACKET ( ); 
2626 
2627 lee 
2628 ' COMPARE STATUS REGISTERS TO EXPECTED VALUES 


CHK_RIXI_STATUS ( ZERO ) 
CHK-CSR STATUS ( CSR_STATUS, CSR_MASK ) 1 0100220’, 0’ 100220: 
CHK-XMIT STATUS € XFLG-STATUS, XWO12 STATUS ); + 0140000’ ; 0'000400! 


IF_.P3 EQLU ZERO 
THEN 


BEGIN 
CHK_RCV_STATUS ( RFLG_STATUS, RWDI_STATUS ); ! 0'140000', 0'020000' 
ELSE 


RWD14 


& 


- 
wo 
WUWUUNRUUWUPPMNRRYRNNNRNRNVNNNRPR PRR RRR RRP RRR RR RR RP RRP RRP RRR RRP rPH 


TEMP1 = STATUS : 
IF .RCV_D_LIST [ STWDL ] AND #0'070001' EQLU #0‘070001' 





* =) © oe o 
MN 


| Eesserenettn 


; Routine Size: 


CZQNAEO DEQNA FUNCTIONAL TEST 
GLOBAL ROUTINE - SEND_ELOOP_PACKET ( P3 ) 


TTL SEND. ELOOP .PACKET GLOBAL ROUTINE - SEND_ELOOP_PACKET ( P3 ) 


27-Mar-1986 07:37:39 
26-Mar-1986 17:01:05 


TEMP1 = #0'070001' ; 
CHK_RCV_STATUS ( RFLG_STATUS, .TEMP1 ); 

END; 

SB 
0000006 SEND. ELOOP .PACKET: : 

MOV REG. ADR, RO 
001400 000016 BIC #1400, 16(RO) 
001000 000016 BIS #1000, 16(RO) 
000000V JSR PC .XMET. AND .RCV. PACKET 
001262! JSR PC, CHK .RIXI.STATUS 
1 MOV #-77560, (SP) 
001646’ TSR CSP). 2(3P) STATUS 
1 MOV #-40000 2365 

MOV #400, -(SP) 

JSR PC. CHK. XMIT. STATUS 

000010 TST 10(SP) 

BNE 1$ 
140000 MOV $-40000, (SP) 
020000 HOV #20000, -(SP) 
060000 0000006 1$: MOV #60000, TEMP1 
000001 0000106 BIT #1,RCV.D.LIST+10 
070001 0000006 MOV #70001, TEMP1 
140000 2$: MOV a (SP) 
0000006 MOV TEMP1, -(SP) 
002336! 3$; JSR PC, CHK .RCV. STATUS 
000010 ADD #10, SP 

RTS PC 

words, Routine Base: AC$CODE$ + 5634 
words 


; Maximum stack éenth per invocation: 


; 2649 1 


! 0'140000' , 


VAX-11 Bliss-16 V4.0 
DISK2: [SCODA.QNA. ZQNA TONAS. BLI;1 


227277? 


P3 


52 
matey 


2624 
2625 
2631 
2632 
2633 


2635 
2638 
2642 
2643 
2645 
2646 


2622 
2593 





POMPOM NNN WUWWNRRNRRNRNNDNRR RRR RRP RR RRR RRR rR RRR RRR RRR HRP 


CZQNAEO DEQNA FUNCTIONAL TEST 
GLOBAL ROUTINE - SEND_TEST_PACKET 26-Mar-1986 17:01:05 DISK2: [ A.QNA. ZQNA)ZQNA4 .BLI;1 (25) 





SEQ 273 
27-Mar-1986 07:37:39 VAX-11 B ige- 36 V4 .0-579 Page 53 


SSBTTL ‘GLOBAL ROUTINE - SEND_TEST_PACKET ‘ 
GLOBAL ROUTINE SEND_TEST_PACKET : NOVALUE = 


Soe 


GLOBAL ROUTINE : SEND_TEST_PACKET 
DESCRIPTION: 


This routine initializes transmit and receive Gener ipter ond and 
then initiates transmissin of an external loopback packet 


XMIT_D_LIST [ 0 ) = NEWB RCV_D_LIST [ 0 ] = NEW 
XMIT_D_LIST [ 1 ] = VE RCV_D_LIST { 1 ] = VE 

T_D_LIST { 2 }] = XMIT_BUFFER RCV_D_LIST [ 2 ) = RCV_BUFFER 
XMIT_D_LIST { 3 ] = .XBUF_LENGTH RCV_D_LIST { 3 ] = .XBUF_L 
XMIT_D_LIST [4] =0 V_0.LIST{4]=0 

“DPD LIST [5 ]=0 RCV_D LIST {5 ]=0 
XMIT_D_LIST[6])=V RCV_D_LIST [6] V 
XMIT_DLIST{7)])==€E RCV_D.LIST{ 7J)=€E 


INPUT PARAMETERS: 
None 


BEGIN 


bee 
WRITE ETHERNET STATION ADDRESS AND DATA PATTERN INTO THE TRANSMIT BUFFER 


RESET_DEQNA ( ); 
INCR INDEX FROM 0 TO 5 DO 
BEGIN 


XMIT_BUFFER [ .INDEX ] = eer -e t f 
XMIT_BUFFER [ . INDEX + 6 ] TARGET _ADR 
; 


MIT _BUEFER [ PKT TYPE] | = LPBLPKT 
XMIT-BUFFER [ PKTITYPE + 1) = SKIP_CNT; 
XTET-BUFFER [ PKTTIYPE 2 2 1 = REC; 


See 


! CONVERT SETUP PACKET SIZE FROM BYTE COUNT TO WORD COUNT AND SET UP 
DESCRIPTOR LISTS 


RBUF_LENGTH = PKT_LENGTH + 14; 
XBUF_LENGTH = - ( "RUF LENGTH t -1 ); 








™m 
g 
MMP MP Ppp fronrro 


; Routine Size: 


CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39 
GLOBAL ROUTINE - SEND_TEST_PACKET 26-Mar-1986 17:01:05 


SET_RDESCR_LIST ( .XBUF_LENGTH, VE ); 
SET_XDESCR_LIST ( .XBUF_LENGTH, VE ); 


i SET DEQNA TO EXTERNAL LOOPBACK MODE AND SEND LOOPBACK PACKET 


PUT_BIT ( CSR EXT ——— ) 
REV PACKET ( 


SEQ 274 
oo mS Bliss-16 V4.0-579 
SK2: (SCODA.QNA.ZQNA}ZQNA4 .BLI;1 


XMIT_AND_RCV 

END; 

_SBTTL SEND. TEST.PACKET GLOBAL ROUTINE - SEND_TEST_PACKET 
000324' SEND. TEST .PACKET: : 

JSR PC RESET .DEQNA 

‘ 
000162G 0000006 1$: MOVB _- TARGET. ADR+162(RO), XMIT. BUFFER(RO) 
«#( INDEX), #C INDEX) 
0001626 0000066 MOVB TARGET. ADR+162(RO), XMIT. BUFFER+6(RO) ; 
«( INDEX), #C INDEX) 

INC ' INDEX 
000005 4 ~~ ; INDEX, * 
000220 0000146 MOVB #§ #220, XM1T.BUFFER+14 ; 

CLRB T{BUFFER+15 ; 
000001 0000166 MOVB #1, XMIT .BUFFER+16 ; 

MOV #2752 , RBUF .LENGTH ; 

MOV »RO ; 

ASR 

NEG 
0000006 MOV RO, XBUF .LENGTH 

MOV RO, -CSP) ; XBUF .LENGTH, * 
120000 MOV #-60000, -(SP) 
003554! JSR PC, SET.RDESCR.LIST 
0000006 MOV XBUF . LENGTH, (SP) ; 
120000 MOV #-60000, -( SP) 
003632’ JSR PC, SET. XDESCR.LIST 
0000006 MOV REG. ADR, RO ; 
001400 000016 BIS #1400, 16(RO) 

JSR PC, XMIT.AND.RCV. PACKET ; 
000006 ADD #6, SP : 

RTS PC ; 


Routine Base: ACSCODE$ + 6002 
4 words 


1 words, 
; Maximum stack dant per invocation: 


; e715 1 


Page 





54 
(25) 


2693 
2701 
2702 


zee BSB BE 


® 


27 
2705 
2711 
27i2 
2678 
2652 








POPO PO POPE POPP PO POPU PON WWIGNIP RNP DNA RRR rrr RRR RRR RR Ree eee ee Re ee Pe 





SEQ 275 

CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39 VAX-11 Bliss-16 V4.0-579 ’ Page 55 
GLOBAL ROUTINE - INTR_TEST_PACKET 26-Mar-1986 17:01:05 DISK2: { SCODA.QNA.ZQNA}ZQNA4 .BLI;1 (26) 
SSBTTL ‘GLOBAL ROUTINE - INTR_TEST_PACKET ' 


GLOBAL ROUTINE INTR_TEST_PACKET : NOVALUE = 


' 

’ 

GLOBAL ROUTINE : INTR_TEST_PACKET 

DESCRIPTION: 

: This routine initializes transmit and receive descriptor lists and 
: then initiates transmissin of an external loopback packet. A reset 
: is never done, so the state of IE does not change. 

: XMIT_D_LIST [ 0 ] = NEWB RCV_D_LIST [ 0 ] = NEWB 

: _D_LIST { 1 J] = VE RCV_D_LIST { 1 ] = VE 

: XMIT_D_LIST [ 2 ] = XMIT_BUFFER RCV_D_LIST [ 2 ] = RCV_BUFFER 
' XMIT_D_LIST { 3 ] = .XBUF_LENGTH RCV_D_LIST { 3 ] = .XBUF_LENGTH 
: XMIT_D_LIST [4] = 0 RCV_D.LIST [4] = 0 

: XMIT_D_LIST | 5 J] = 0 RCV_D_LIST | 5 J = 0 

: XMIT_D.LIST [6] = V RCV_O_LIST [6] = V 
XMIT_DLLIST{ 7 J=€E RCV_DLLISTi 7J=€E 

' 

INPUT PARAMETERS: 

: None 

' 


BEGIN 


See 
! WRITE ETHERNET STATION ADDRESS AND DATA PATTERN INTO THE TRANSMIT BUFFER 


INCR INDEX FROM O TO 5 DO 
UE See tt ee el: teex fs! 
XMIT_BUFFER [ .INDEX + 6 ] TARGET_ADR [ (€ PHA_LINDEX * 6 ) + . INDEX J; 


3. 


XMIT_BUFFER [ PKT.TYPE ] _ = LPB_PKT 
MIT-BUEFER [ PKT-TYPE + 1 J = SK IP_ONt 
XMIT-BUFFER { PKT-TYPE + 2 } = 


See 


! CONVERT SETUP PACKET SIZE FROM BYTE COUNT TO WORD COUNT AND SET UP 
! DESCRIPTOR LISTS 


RBUF_LENGTH = PKT_LENGTH + 14; 
XBUF_LENGTH = - ( "RBUF LENGTH t -1 ); 





SEQ 276 
ZQNA4 CZQ@NAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39 | VAX-11 Bliss-16 V4.0-579 Page 56 
VO1.0 GLOBAL ROUTINE - INTR_TEST_PACKET 56-Mar-1986 17:01:05  DISK2:(SCODA.QNA.ZQNA]ZQNA4.BLI;1 (26 
» wee 2 

; 2770 2 SET_RDESCR_LIST ( .XBUF_LENGTH, VE ); 

. ame SET_XDESCR_LIST ( .XBUF_LENGTH, VE ); 

oe 

a77a 2 ; SET DEQNA TO EXT LOOPBACK AND SEND LOOPBACK PACKET 

' 577% 3 : 

: ao sf PUT oh : CSR EXT * ee ); 'this does a BIS, so IE stays 

; 2778 2 XMIT _ REV PACKET 

3 2779 2 

; 2780 1 END; 


; Routine Size: 49 words, 
; Maximum stack depth per invocation: 


; 2761 1 
; 2782 1 


SySSQSSaRGseSeSrgE 3 ae ’ 


SSH 
and hed 
w ie) 


RO AGET .ADR©162(RO),XMIT.BUFFERCRO) i 
TARGET . ADR+162(RO),XMIT. BUFFER W6LRO), 5 


RO 
tt #5 
weet XMIT. — 


Routine Base: ACS$CODE$ + 6150 
words 


TTL INTR.TEST.PACKET GLOBAL ROUTINE - INTR_TEST_PACKET 
INTR. TEST .PACKET: : 


i$: 


INDEX) , *C INDEX) 
*C INDEX), *C INDEX) 


* 


XBUF .LENGTH, * 








; 2611 1 
5 mee & 





SEQ 277 

Z CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39 . aii Bliss-16 V4.0-579 shes Page 57 
vo1.0 GLOBAL ROUTINE - XMIT_AND_RCV_PACKET 26-Mar-1986 17:01:05 SK2: (SCODA.QNA.ZQNA)ZQNA4.BLI;1 (27) 
; aes : SSBTTL ‘GLOBAL ROUTINE - XMIT_AND_RCV_PACKET ' 
; 2785 1 GLOBAL ROUTINE XMIT_AND_RCV_PACKET : NOVALUE = 
; 2787 1 tee 
; 2788 1 ' 
; FAA 44 : GLOBAL ROUTINE : XMIT_AND_RCV_PACKET 
; «3791 1 ‘ DESCRIPTION: 
; e792 1 : 
; rite t This routine initiates transmit and receive operations. 
; 3795 1 1 INPUT PARAMETERS: 
; 2796 1 ' 
; e797 1 ! 
; 2798 1 ! 
; e799 1 ! 
; 2800 1 '-- 
; 2801 1 
; 2802 2 BEGIN 
; 2803 2 
; 2804 2 .IOP_TABLE [ RLO_ADR ] = RCV_D_LIST; 
$ oo : .IOP_TABLE [{ RHI_ADR ]} = 0; 
; 
; 2807 2 .IOP_TABLE [{ XLO_ADR = XMIT_D_LIST; 
; 2808 . .IOP_TABLE { XHI_ADR } = 0; 
; 
; 2810 1 END; 

_SBTTL XMIT.AND.RCV.PACKET GLOBAL ROUTINE - XMIT_AND_RCV_PACKET 
000000 012777 000000G 000004G XMIT.AND.RCV.PACKET: : 

MOV @RCV.D.LIST,@I0P. TABLE +4 : 2804 
000006 0000066 CLR @IOP. TABLE +6 ; 2805 
000012 012777 000000G 000010G MOV #XMIT.DO.LIST,@IOP . TABLE+10 : 2807 
000020 000012G CLR @IOP . TABLE +1 ; 2808 
000024 000207 RTS ; 2785 
; Routine Size: 11 words, Routine Base: ACSCODE$ + 6312 
; Maximum stack depth per invocation: 0 words 








SEQ 278 
VAX-11 Bliss-16 V4.0-579 age 58 
DISK2:(SCODA.QNA.ZQNA)ZQNA4 .BLI;1 (28) 


0‘ 100220’ 
0' 044000’ 


0’ 100220' 
0’ 000000’ 


0' 000400’ 


.SBTTL XMIT.ILOOP.PACKET GLOBAL ROUTINE - XMIT_ILOOP_PACKET ( PS ) 


ZQNA4 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39 
v01.0 CLOBAL ROUTINE - XMIT_ILOOP PACKET ( P3 ) 56-Mar-1986 17:01:05 
; 2815 1 SBTTL ‘GLOBAL ROUTINE - XMIT_ILOOP_PACKET ( P3 ) ' 
; 
; 2815 1 GLOBAL ROUTINE XMIT_ILOOP_PACKET ( PS ) : NOVALUE = 
; 
3 2817 1 tee 
' $eie ls: 
; 2819 1 GLOBAL ROUTINE: XMIT_ILOOP_PACKET 
; 2820 5 
; 5851 1 | DESCRIPTION: 
: 2822 1 ! 
; 2823 1 ' This routine 
: 2824 i ' 
; =5825 1 ¢ INPUT PARAMETERS: 
3 2826 1 ' 
; 2827 1 ' P3 - selector 
' Sea 1! 
; 2829 1 !-- 
; 2830 1 
' 5831 2 BEGIN 
; 2832 2 
; 5833 3 CLR_DESCR ( ); 
; 2834 2 
; «B35 SET_RDESCR_LIST ( .XBUF_LENGTH, VE ); 
; 2836 2 SET“XDESCR-LIST ( :XBUFZLENGTH, VE ); 
; 
; «B38 OD XMIT_AND_RCV_PACKET ( ); 
; 2839 2 
; 5eao 32 IOP_TABLE [ CSR ] = EENABLE; 
; 2841 2 
; «BAD 2 IF .P3 EQLU ONE 
; Deas 2 THEN 
| 5g44 3 BEGIN 
;  3B45 3 CHK RIXT STATUS ¢ ONE Di 
; 3846 3 CHK“CSR_STATUS ( CSR.STATUS, CSR_MASK ) + 0'100220' , 
; 3847 3 CHK-RCV-STATUS (¢ RFLG_STATUS, RWO16 STATUS ); ! 0'140000'. 
; 
; «849 2 ELSE 
; 2850 3 
; 6 3851 3 CHK _RIXI_STATUS ( 
; 62852 3 “CSR_STATUS ( CSR TRO di TUS. CSR_MASK + 0'100220' , 
; 2853 3 Cra “RCV STATUS ¢ RFLG. Cee eee ee stAtUS ); | 0'140000' : 
3 
; «2855 
; 2856 2 CHK _XMIT STATUS ( XFLG_STATUS, XWD12_STATUS ); + 0'140000' , 
; «B57 2 COMPARE PACKETS ( ); 
; «3858 2 "TOP_TABLE { CSR } = DISABLE; 
; 63859 2 
; 1 END; 
000000 004737 001206: XMIT . ILOOP . PACKET : : 
JSR PC,CLR.DESCR 





; 2833 


—————— eae 





ZQNA4 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39 VAX-11 Bliss-16 V4.0-579 
v01.0 GLOBAL ROUTINE - XMIT_ILOOP_PACKET ( P3 ) 26-Mar-1986 17:01:05  DISK2:(SCODA.QNA.ZQNA)ZQNA4.BLI;1 
013746 0000006 MOV XBUF . LENGTH, -(SP) ; 
000010 012746 120000 MOV #-60000, -(SP) 
000014 004737 003554’ JSR PC, SET.RDESCR.LIST 
000020 013716 000000G MOV XBUF . LENGTH, (SP) ; 
012746 120000 MOV #-60000, -( 
000030 004737 003632’ JSR PC, SET. XDESCR.LIST 
000034 004737 006312’ JSR PC: XMIT.AND.RCV. PACKET 
000040 012777 000001 0000166 MOV #1. @10P . TABLE +16 
000046 026627 000010 000001 CMP 10(SP), #1 ; P3,* 
000054 001016 BNE 1$ 
000056 012716 000001 MOV #1, (SP) 
000062 004737 001262’ JSR PC’ CHK. RIXI. STATUS 
012716 100220 MOV #-77560, (SP) 
000072 011646 MOV (SP), -(SP) 
000074 004737 001646’ JSR PC, CHK.CSR. STATUS 
000100 012716 140000 MOV #-40000, (SP) ; 
000104 012746 044000 MOV #44000, - 
000110 000413 BR 2$ 
000112 005016 1$: CLR (SP) ; 
000114 004737 001262’ JSR PC, CHK.RIXI.STATUS 
000120 012716 100220 MOV #-77560, (SP) ; 
000124 011646 MOV (SP), -(SP) 
000126 001646' JSR PC, CHK.CSR. STATUS 
000132 012716 140000 MOV #-40000, (SP) ; 
000136 005046 CLR -(SP) 
000140 004737 002336’ 2$: JSR PC, CHK.RCV. STATUS 
000144 012716 140000 MOV #-40000, (SP) ; 
000150 012746 MOV #400, -(SP) 
000154 004737 JSR PC, CHK. XMIT. STATUS 
000160 004737 003136’ JSR PC. COMPARE .P ; 
000164 005077 0000166 CLR @I0P . TABLE+16 
000170 062706 000014 ADD $14, ; 
000174 000207 RTS PC ; 
; Routine Size: 63 words, Routine Base: ACS$CODE$ + 63540 
; Maximum stack depth per invocation: words 
$ 2861 1 
; 2862 1 


—————————— ee 





=} 
re) 
UMNO URN RRP RRP RP RR RRR RRR RRR PE 


; Routine Size: 
; Maximum stack depth per invocation: 4 words 


SEQ 280 
CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39 VAX-11 Bliss-16 V4.0-579 Page 60 
GLOBAL ROUTINE - TURN_OFF_LED ( Pi ) 26-Mar-1986 17:01:05 DISK2: [SCODA.QNA.ZQNA)ZQNA4 .BLI;1 (29 


SSBTTL ‘GLOBAL ROUTINE - TURN_OFF_LED ( P1 )’ 
GLOBAL ROUTINE TURN_OFF_LED ( Pil ) : NOVALUE = 


YS 


+ 
3 


GLOBAL ROUTINE : TURN_OFF _LED 
DESCRIPTION: 

This routine 
INPUT PARAMETERS: 

Pi - 


Ce weet ee ee ea tae tae tae te tee te 


BEGIN 
PREP_FOR_SETUP ( ); 


INCR INDEX1 FROM 1 TO 14 DO 
WRT_STATION_ADR ( .INDEX1, PHA_INDEX ); 


XMIT_SETUP_PACKET ( .P1 ); 


END; 
_SBTTL TURN.OFF.LED GLOBAL ROUTINE - TURN_OFF_LED ( P1 ) 
TURN. OFF .LED: : 
MOV Ri,-(SP) ; 2865 
004634 JSR PC, PREP .FOR. SETUP ; 2883 
000001 MOV #1,R1 ; *, INDEX1 2885 
1$: MOV Ri,-(SP) ; INDEX1,+* 2886 
000023 MOV »-C ) 
004442 JSR PC,WRT. STATION. ADR 
CMP SP)+,(SP)+ 
INC ; INDEX1 2885 
000016 CMP Ri, #16 ; INDEX1,* 
BLE 
000004 MOV ACSF -(SP) ; Pl,» 2888 
005366! JSR XMIT . SETUP . PACKET 
TST CsBye 2881 
MOV (SP)+,R1 ; 2865 
RTS PC 
22 words, Routine Base: AC$CODE$ + 6536 








ZQNA4 CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:37:39 

vo1.0 GLOBAL ROUTINE - TURN_OFF_LED ( Pl ) 26-Mar-1986 17:01:05 
| ; 2892 1 

; 28693 1 

; 2894 1 

; 2895 90 ELUDOM 

: OTS external reference 


. GLOBL SSAVES, $SAVE2 


; PSECT SUMMARY 

Psect Name Words Attributes 

; AC$CODE$ 1733 RO, I , LCL, REL, CON 

; Library Statistics 

$ 

ee eee ee a ee ll Symbols -------- Pages 
; File Total Loaded Percent Meleed 
DISK2:[SCODA.QNA.ZQNAJQNALIB.L16;2 224 134 59 14 

; COMMAND QUALIFIERS 

; BLISS/PDP11 ZQNA4.BLI/LIST=ZQNA4.LIS/OBJECT=ZQNA4 . OBJ/SOURCE=PAGE : 53 


Size: 1733 code + 0 data words 
ime: 00:35.3 





SEQ 281 
VAX-11 Bliss-16 V4.0-579 Page 61 
DISK2: (SCODA.QNA.ZQNA)ZQNA4 .BLI;1 (29) 


Processing 
Time 


00:0C.1 





: 


0001 


RRR Rr OOOCOO 


CZQNAEO DEQNA FUNCTIONAL TEST 


MODULE ZQNAS (oTrTLe SR on FUNCTIONAL 
ADDRESSING_MODE( ABSOLUTE ) 

sSBTTL ‘LAST ADDRESS AND SETUP SECTION’ 

BEGIN 

LIBRARY Ee deo: , 


REQUIRE ogee 
' <BLF /NOF ORMA 


27-Mar-1986 07:38:19 
26-Mar-1986 17:01:05 


TEST’ 


! QNALIB L 


SEQ 282 
VAX-11 Bliss-16 V4.0-579 Page 1 
DISK2:(SCODA.QNA.ZQNA]ZQNAS.BLI;1 (1) 


LIBRARY 
! DIAGNOSTIC SUPERVISOR LIBRARY 








SEQ 283 


ZQNA5S CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:38:19 VAX-11 Bliss-16 V4.0-579 Page 2 
v01.0 LAST ADDRESS AND SETUP SECTION 26-Mar-1986 17:01:05 DISK2: (SCODA.QNA.ZQNA)ZQNAS .BLI;1 (2) 
; 1502 2 LASTAD 
5 ia «@ BGNSETUP( 1); ! NUMBER OF P-TABLES 
; P 1504 2 BGNPTAB 
; P 1505 2 #0’ 174440’ ,#0' 700’ 
; 1506 2 ENDPTAB 
s er i ENDSETUP 
.TITLE ZQNAS CZQNAEO DEQNA FUNCTIONAL TEST 
.IDENT /V01.0/ 
. ENABL 
000000 .PSECT $XYZ$, RO 
000000 000014' BL$LAS::.WORD T$FRE 
000002 000000C -WORD <<T$FREE-<BL$LAS+4>>/2> 
000004 000000 P.AAA: .WORD 0 
000006 000002 .WORD 2 ; Plit count word 
000010 174440 P.AAB: .WORD -3340 
000012 000700 .WORD 700 
000014 000000 TS$FREE::.WORD 0 
000004 ' L$LAST== BLS$LAS+4 
000001 T$PTHV== 1 
000004 ' $$LASi= P.AAA 
000010’ $REM2= P.AAB 
.SBTTL $END.LINK LAST ADDRESS AND SETUP SECTION 
000000 000207 $END.LINK: : 
RTS PC ; 1499 
; Routine Size: 1 word, Routine Base: $XYZ$ + 0016 
; Maximum stack depth per invocation: 0 words 


; 
; 
; Psect Name 
; 


; Library Statistics 


PSECT SUMMARY 
Words Attributes 
8 RO, I ,., LCL, REL, CON 





M6 


SE 
ZQNAS CZQNAEO DEQNA FUNCTIONAL TEST 27-Mar-1986 07:38:19 VAX-11 Bliss-16 V4.0-5 sdiass Page 3 
v0O1.0 LAST ADDRESS AND SETUP SECTION 26-Mar-1986 17:01:05 DISK2:(SCODA.QNA. ZaNA}ZONAS.. BLI;1 (2) 
occecen- Symbols -------- Pages Process i 
File Total Loaded Percent Mapped Time _ 
DISK2:(SCODA.QNA.ZQNA JQNALIB.L16;2 224 3 1 14 00:00.1 
; COMMAND QUALIFIERS 
; BLISS/PDP11 ZQNAS.BLI/LIST=ZQNA5.LIS/OBJECT=ZQNAS . OBJ/SOURCE=PAGE : 53 
Size: 1 code + 7 date words 
Time: 00:04.3 
00:05.3 
21217 





Lexemes/CPU- a 
Memory Used: pages 
Compilation Complete 


N6 


.MAIN. MACRO VO5.03 Thursday 27-Mar-86 07:38 Page 1 SEQ 285 

1 ; Subroutine to calculate station address rom checksum 

2 ; This was necessary because the aigor| Se in the ETHERNET spec 

3 : was written for a ¥39 bit data wo This routine uses ea 16 bit 

4 ; word, but uses the PSW C bit to look for what would be bit 16 

5 ; getting set. 

: ; 

; 

. ; INPUTS:: array STATION.ADR has 6 bytes of default physical seddress 
i? ; OUTPUTS:: word CHECKSUM has the 16 bit checksum for the above address 
12 TMPR1 is used as a counter veriable 
3 ; RO is saved, used, and restored 
Fs added Oct-1985 by Dave Scoda 
17 
15 900000 010046 ? 0,-(sp) r0, for BLISS ch 

Mov r0,- ;save rO, for anges 
000002 7 0000006 CLR CHECKSUM 
21 000006 000000G CL ees ; INDEX 
000012 016700 000000G 2$ MOV CKSUM,RO ; 
23 000016 ASL 
4 000020 032767 100000 000000G BIT #-100000 , CHECKSUM ; 
000026 001405 BEQ 3$ 
000030 010067 000000G MOV RO, CHECKSUM ; 
27 000034 000000G INC CHECKSUM ; 
28 000040 000402 BR 4$ ; 
29 000042 010067 000000G 3$: MOV RO, CHECKSUM ; 
30 000046 016700 000000G 4$: MOV COUNTER, RO ; 
31 000052 006300 ASL RO 
32 000054 000241 she sclear c before use 
33 000056 066067 000000G 000000G STATION. ADRCRO) , CHECKSUM 
u checksum ;fix algorithm 
; &, INDEX 
; INDEX,* 








ee 


B/ 


MACRO VO5.03 Thursday 27-Mar-86 07:38 Page 1-1 


.MAIN. 
Symbol table 
CHECKS= «eee00 GX 


000000 
000116 
Errors detected: 


COUNTE= ##¢ee0 GX 


0 


##s Assembler statistics 


core pool 
Operating system 


: 0 

: 0 

: 39 Words ( 1 P ) 

: 19684 Words ( rege) 

: RSX-11M/PLUS (Under VAX/VMS) 


El time: 00:00:01.17 
. OBJ, ZQNA6 ..LIS/-SP=ZQNA6 


ROMCHK OOO0000RG 


STATIO= ##eee¢ GX 


TMPR1 = #ee¢66 GX 


SEQ 286 





Orr RRR RRR rR OOCOCOOFrrrrOOOOCOrFFrFrrOoOOoOCOoOoCOCOoOCOoOCOOoOOoOOoOO 





SEQ 287 
27-Mar-1986 07:35:26 recs Lea ee an V4.0-57 Page 1 
26-Mar-1986 17:01:04 A.QNA. ZQNA )QNALIB.R16;1 (1) 


! update history:: 


Dave Scoda 5-Nov-85 Changed R2_MASK from 174013 to 174003 
Changed RWD2_MASK from 177417 to 177407 


5-Mar-86 o Software P table, swp_size 
Ses 
y 
| DEFINE DATA STRUCTURES IN THIS SECTION 
. 
STATE ks. £) ! DEFINE ACCESS ALGORITHM 
6EGIN 
LOCAL TMP_LOCA 
SO OCATION © -CREG. STR + SUPVAL * 0) <O,sBPVAL,O>; 
THPLOCATION 
END < B, S, E >; 
STRUCTURE ! DEFINE ACCESS ALGORITHM 
ADR STR [ 0, P. S, E I= 
LOCAL TMP LOCATION 
TMP LOCATION = CADR_STR + SUPVAL * 0) <0,sBPVAL,O>; 
TMP~LOCATION 
END < PB, S, E >; 
STRUCTURE ! DEFINE ACCESS ALGORITHM 


LBLOCK { 0, P, S, E, I J]= 
CASE I FROM O TO 2 OF 


SET 
CO Jee BLOCK + 0 * SUPVAL ); 
fre \LBLOCK + 0 * SUPVAL ); 
reg, { TBLOCK + 0 + SUPVAL D: 


END < P, S, E >; 





Seeeeee 


egeagengsageeseagaaaaacaes 


g 
=) 


z= 
SSsees 
SOIR 


ooooooooooooooeoooooooeoooeooooeoooo0°00c0ooo 





SEQ 288 
27-Mar-1986 07:35:28 VAX-11 Bliss-16 V4.0 Page 2 
26-Mar-1986 17:01:04 DISK2:(SCODA.QNA. 2QNA}QNAL IB. R16;1 (2) 


foe 
' 


MACRO DEFINITIONS 
' 
MACRO 


TST_BIT ( ADDR, EXPECTED ) = 
( IF ( .ADOR AND EXPECTED ) EQLU EXPECTED 


TRUE 
ELSE 
FALSE )#, 


wt Tt OFFSET, POSITION, IMAGE ) = 
( .REG_ADR + sUPVAL « OFFSET )< sFIELDEXPAND ( POSITION ) > = IMAGE; 


GET_STATION_ADR ( OFFSET, POSITION, IMAGE ) = 
( .STATION_ADR + OFFSET )< sFIELDEXPAND ( POSITION ) > = IMAGE; 


THIS MACRO GETS BITS SPECIFIED BY THE FIELD NAME " POSITION " 
AND MEMORY LOC SPECIFIED BY (.REG_ADR + #UPVAL * OFFSET) 


' 
s 
' 
‘ 
GET_BIT ( OFFSET, POSITION ) = 

-REG_ADR [ OFFSET, POSITION J] #; 


ocoooooooooooc“o“oooooooooooooooooooooooooooooeoo 


TIME8_LIMI 
TIMES_LIMIT 
STEP1 


oorr FOrOoOroOr>o 


BEE 


“6 


ree 
5 


8 


Bee" Se 





SEQ 289 
27-Mar-1986 07:35:26 VAX-11 Bliss-16 V4.0-57 Page 3 
26-Mar-1986 17:01:04 DISK2: [SCODA.QNA.ZQNA JQNALIB .R16; 1 (3) 


LOOP ITERATION COUNT 
LOOP ITERATION COUNT 
LOOP ITERATION COUNT 
LOOP ITERATI 


ON COUNT 
6K LOOP ITERATION COUNT 
LOOP froma tee COUNT 


ITERATION COUNT 
LOOP ITERATION COUNT 
LOOP ITERATION COUNT 





oeooooooc[“wooooeocoo 


_ 
= 


‘177777', 





27-Mar-1986 07:35:28 
26-Mar-1986 17:01:04 


I/O PAGE REGISTER SIZE 
OFFSET TO DEVICE ADDRESS 
OFFSET TO DEVICE VECTOR ADDRESS 
OFFSET TO DEVICE BR LEVEL 





SEQ 290 
VAX-11 Bliss-16 V4.0-579 Page 4 
DISK2: [SCODA.QNA.ZQNA JQNALIB.R16;1 (3) 


——————— 


SEQ 291 
27-Mar-1986 07:35:28 VAX-11 Bliss-16 V4.0 age 5 
26-Mar-1986 17:01:04 DISK2:(SCODA.QNA. ZaNA}ONALIB. R16;1 (4) 

; 0140 O See 

; 0141 O : 

; 0142 0 ' DESCRIPTOR LIST DEFINITIONS 

3 0143 O ' 

; 0144 0 ' 

: 0145 0O 

; 0146 O D_FLAG_WD = 0, ! STATUS WORD 0, FLAG WORD 

; 0147 O D_DESCR_BITS = 1, ‘ 

; 0148 O D_HI_ADR — ' 

; 0149 0 D_LO_ADR = 2, ! 

; 0150 0 D_WO_COUNT = 3, ' 

; 0151 0 D_WDi_STATUS = 4, ! 

; 0152 0 D_WD2_STATUS = 5, ' 

; 0153 0 

; 0154 0 D1_OFFSET = 18, ‘ 

; 0155 0 D2 OFFSET = 36, ‘ 

$ 0156 O 

; 0157 0 T_SIZE = 120, 

; 0158 0 DESCR SIZE = 128, 

; 0159 O D0 SIZE = DESCR_SIZE / 2, 

; 0160 0 85_D_SIZE = 16 

; 0161 O BUF SIZE = , 

; 0162 O B_SIZE = BUF_SIZE / 2, 

; 0163 0 SIZE = 256, 

; 0164 O BYTE_COUNT = - ( BUF_SIZE / 4), 

; 0165 O PROM_SIZE = 4096, 

; O166 S CHSUM_OFFSET = 6, 

+ 

; o168 g SA_RBL = $0'177775', ! STATION ADR RCV BUF LENGTH - 3 WDS 

; 

; 0170 0 PKT_LENGTH = 1500, ! PACKET LENGTH 

; 0171 O MAX_LENGTH = 1534, ! PACKET LENGTH 

; 0172 0 LEGAL_LENGTH = 1514, ' LEGAL PACKET LENG 

; 0173 O GAL_LENGTH = 1536, ' TLLEGAL PACKET LENGTH 

; 0174 0 LPB_PKT = £0'0220', ' LOOPBACK PACKET 

; 0175 O PKT_ TYPE = 12, ! PACKET TYPE 

; 0176 O SKIP_CNT = 0, ' 

; 0177 0 = 1 

; 0178 O DATA = 15, 

; 0179 O SHORTEST_PACKET = 60, ! SHORTEST SETUP PACKET LENGTH 

; 0180 0 L ST_P = 1514, ' LONGEST SETUP PACKET LENGTH 

; 0181 O L = 1514, tL SETUP P ENGTH 

; 0182 O PHA_INDEX = 19, ! PHYSICAL ADDRESS IN THE 

; ra : ! TARGET_ADR VECTOR 

b 

; 0185 0 KB_VEC_LOC = #0! Rs ! INPUT CONSOLE TERMINAL VECTOR LOC 

; 0186 0 PF_VEC_LOC = £0! 4', ! POWER FAIL VECTOR LOCATION 

; 0187 0 CPU_LED = £0'177524', ' TURN OFF CPU LED LIT ON DCOK 

; 0188 O KB_ADOR = #0' 177560’ , ' CONSOLE TERMINAL INPUT ADDRESS 

; 0188 S KB_ENABLE = #0'000100' , ' ENABLE CONSOLE TERMINAL INPUT 

; 





SEQ 292 
27-Mar-1986 07:35:28 VAX-11 Bliss-16 V4.0-579 Page 6 
26-Mar-1986 17:01:04 DISK2: (SCODA.QNA. ZQNA JQNALIB.R16;1 (5S) 


See 


‘ 
TRANSMIT, RECEIVE AND CSR STATUS AND MASK WORD DEFINITIONS 


CSR_STATUS 
CSR1_STATUS 


' TRANSCEIVER POWER ( XC - BIT 12 ) 
1 TRANSCEIVER POWER ( XC - BIT 12 ) 


PATRN1 = #€0'001411', ' CSR STATIC BITS 
PATRN2 = #$0'001471', ! CSR STATIC BITS 


NXM_LO_ADR = #0'160000', NXM ADDRESS - LOW ORDER BITS 
HI_ADR ! NXM ADDRESS - HIGH ORDER BITS 


! TRANSMIT FLAG WORD MASK BITS 

' TRANSMIT STATUS WD 1 MASK BITS 

' TRANSMIT STATUS WD 1 MASK BITS 

! mask out perry cans for busy net 
' TRANSMIT STATUS WD 2 MASK BITS 

t EXPECTED TRANSMIT FLAG WORD 


E 
s 
: 


0217 XWD11_STATUS ‘ 

0218 XWD12 STATUS = #0'000400', ' EXPECTED TRANSMIT STATUS WD 1 

0219 BIT 8 IS SET IN INTERNAL LOOOPBACK MODES 
0220 ! BIT 8 IS RESET IN EXTERNAL LOOOPBACK MODES 
0221 XWD14_STATUS = #0'047600' , ' EXPECTED TRANSMIT STATUS WD 1 

0223 RFLG_MASK = #0’ 140000’ , ' RECEIVE FLAG WORD MASK BITS 

0224 Ri_MASK = $0' 100000’ , ! RECEIVE STATUS WD 1 MASK BITS 

0225 R2 MASK = £0'174003' , ! RECEIVE STATUS WD 1 MASK BITS ! N.M. CHANGED FROM 174017 TO 174013 
0226 RWD1_MASK = #0' 140000 ' RECEIVE STATUS WD 1 MASK BITS 

0227 = #0'177407', ! RECEIVE STATUS WD 1 MASK BITS 

0228 = #0'020000' , ' EXPECTED RECEIVE STATUS WD 1 

0229 RWD1I_ STATUS = #0'100000' , ! EXPECTED RECEIVE STATUS WD 1 

0230 “STATUS = #0'160000' , ' EXPECTED RECEIVE STATUS WD 1 

0231 RWD13_STATUS = #0'000000' , ! EXPECTED RECEIVE STATUS WD 1 

0232 RWD14_STATUS = #0'060000' , : TED RECEIVE STATUS 1 

0233 RWD15_STATUS = #0'000001', ! EXPECTED RECEIVE STATUS WD 1 

0234 RWD16_STATUS = #0'044000' , ' EXPECTED RECEIVE STATUS WD 1 


RFLG_STATUS = #0'140000', EXPECTED RECEIVE FLAG WORD 


RHL _MASK = #0' 003400 ! RCV HIGH ORDER LENGTH BITS 


rc 
ov 
cooooooooooooocooooooocoocoocoeooc“wooocoooooooocooocoo0°0°0oo 
- aa 
@ 
w 
a4 
; 
" 
- 


RLL_MASK = £0'000377', i! RCV LOW ORDER LENGTH BITS 





coooooooooooocoeocoooooooooooooooooooooo 


ee 8 eeeeeeeeeeeeeeeaeEeEEEeEeeEeee_eae SS 


SEQ 293 
27-Mar-1986 07:35:28  VAX-11 Bliss-16 V4.0-579 age 7 
26-Mar-1986 17:01:04  DISK2:(SCODA.QNA. ZQNA]JQNALIB.R16;1 (6) 


See 
t 


BUFFER DESCRIPTOR / CHAIN DESCRIPTOR BIT DEFINITIONS 


y = #0'100000', ! VALID ADDRESS IF 1 

C = #0'040000' , ! CHAIN ADDRESS IF 1 

E = #0'020000', ! END OF MESSAGE IF 1 

S = #0'010000', ! SETUP MODE PACKET IF 1 
NEWB = #0'100000', ! BUFFER NOT USED IF 1 
i * S. taaehe * LAST DESCRIPTOR IN CHAIN 
VL = £60'1 ‘, : 

VH = #0'100100', ; 

vc = 60'1 ‘, ; 

VHL = #0'100300', ; 

VSE = 60'1 e : 

VSEL = #0'130200', : 

VENXM = #0'120077', ; 


os SET = $B'11', XMIT AND RCV LISTS INVALID 


_SET = $B'1l', ! INTERNAL AND EXTERNAL LOOPBACK BITS 
ILEL_CLR = #B'00' ! INTERNAL AND EXTERNAL LOOPBACK BITS 
INT_LOOPBACK = #8'00', ! INTERNAL LOOPBACK MODE 

= $B'10', : EXTENDED LOOPBACK MODE 


! INTERNAL 
! EXTERNAL LOOPBACK MODE 


EXT_LOOPBACK = #8'11', : 
N_MODE = #0'000200' , ! ENABLE NORMAL MODE OF OPERATION 

_MODE = #60'000202', ' ENABLE PROMISCUOUS MODE OF OPERATION 
A_MODE = #0'000201', ' ENABLE ALL MULTICAST MODE OF OPERATION 
LED1 = £€0'000204', ! TURN OFF LED 1 
LED2 = #0'000210', ! TURN OFF LED 2 
LEDS = #0'000214', ! TURN OFF LED 3 


SK 


oe of @* @e GS Ge &e Ge © Ge Ge Ge Se Ge @e Ge Ge Ge oe Ge 


oeooooqoo°o9eooooooooooo 


See 
’ 


Soe 
q 
. 
Gee 
oe 


STATION ADDRESS CONSTANTS 


HARDWARE AND SOFTWARE P-TABLE EQUATES 


SWP_SIZE = 6 
HWP _ 
SET_IT = 1 , 
CLR_IT = 0; 


, ! SOFTWARE P-TABLE SIZE ( WORDS 
IZE © 2, ! HARDWARE P-TABLE SIZE ( WORDS ) 





27-Mar-1986 07:35:28 
26-Mar-1966 17:01:04 


! HIGH STATION ADDRESS BITS 
! MIDOLE BIT 

! LOW STATION ADDRESS BITS 
! ACTUAL CHECKSUM INDEX 


) 


VAX-11 Bliss-16 V4.0- 
DISK2: (SCODA.QNA.ZQNA 


SEQ 294 
579 
JQNALIB .R16;1 


P 8 
” (7) 








SEQ 295 
27-Mar-1986 07:35:28  VAX-11 Bliss-16 V4.0-579 Page 9 
26-Mar-1986 17:01:04  DISK2:(SCODA.QNA.ZQNAJQNALIB.R16;1 (8) 


; 0298 0 tes 

; 0299 0 

0300 : ! THE CONTROL AND STATUS REGISTER BIT DEFINITIONS 

; b+ 

; 0302 0 Scum 

$ 0303 O 

; 0304 0 ELD 

; 0305 0 IOP_FIELDS = 

; 0306 O SET 

; 0307 0 RE =[0, 1, 0], ! RECEIVER ENABLE R/W ( ACTIVE HIGH ) 
; 0308 0 SR = { 1.1.0). ! SOFTWARE RESET R/W ( ACTIVE HIGH ) 
; 0309 0 NI ={ 2.1.0]. ! NXMI T R ( ACTIVE HIGH ) 
; 0310 0 BD = { 3, 1.0), ! BOOT TIC R/W ( ACTIVE HIGH ) 
; 0311 0 XL = { 4' 1.0. ! XMIT LIST INVALID R  ( ACTIVE HIGH ) 
; 0312 0 RL =(5,1,0], ! RCV INVALID R ( ACTIVE HIGH ) 
; 0313 0 IE =f 6.1.0), ! INTERRUPT ENABLE R/W ( ACTIVE HIGH ) 
; 0314 0 XI = [ 7. 1. 0}. ¢ XMIT INTERRUPT REQUEST R/W ( ACTIVE HIGH ) 
; 0315 0 IL = { 8. 1.0. ! INTERNAL LOOPBACK MODE R/W( ACTIVE LOW ) 
; 0316 0 EL = [ 9: 1. 0}. ! EXTERNAL LOOPBACK MODE R/W ( ACTIVE HIGH ) 
; 0317 0 SE = [10, 1. 0}, ! SANITY TIMER ENABLE R/W ( ACTIVE HIGH ) 
; 0318 0 x1 = fli. 1. 0}, ! RESERVED, UNUSABLE 

; 0319 0 xc = [12. 1. 0}, ! TRANSCEIVER PWR R  ( ACTIVE HIGH ) 
; 0320 0 CA = [13, 1, 0 J, ! CARRIER R ( ACTIVE HIGH ) 
; 0321 0 X2 Ss 14, ie 0 ' ' RESERVED UNUSABLE 

; 0322 0 RI = [15, 1. 0 1, #! RCV INTERRUPT REQUEST  R/W ( ACTIVE HIGH ) 
; 

; 0324 0 =[{ 8, 2,0], ! LOOPBACK BITS 

; 0325 0 XLRL  =[{ 4.2.0], | XMIT AND RCV LISTS INVALID BITS 

; 0326 0 ALL _BITS= { 0,16, 0 }, 1 FETCH WHOLE WORD 

; 

; Ce 0 LO.NIBBLE = [ 0, 0, 0], 

; 0329 0 “NIBBLE = [ 0, 4,0), 

; 0330 0 LOBYTE =[{0. 8, 0}, 

; 0331 0 HI-BYTE =[ 0, 16, 0 }, ' GET WORD, ALL BITS 

; 0332 0 ST-ADDR =[{ 0, 8, 0], ' STATION ADDRESS LOW BYTE 

, 0333 0 ST-WORD =[ 0, 16, 0}, ' GET WORD, ALL BITS 

; 

; 0335 0 RCV_LO =[ 2, 0, 16, 0], ! RCV BUFFER DESCRIPTOR LIST LOW ADDRESS 
; 0336 0 V = { 3,0, 8, 0) ' RCV BUFFER DESCRIPTOR LIST HIGH ADDRESS 
; 0337 0 XMIT_LO = { 4. 0, 16, 0}, ' XMIT BUFFER DESCRIPTOR LIST LOW 

; 0338 0 THI =[5, 0, 8, 0], + XMIT BUFFER DESCRIPTOR LIST HIGH ADDRESS 
; 0339 0 vec_ADR = { 2, 8, 0], 1 INTERRUPT VECTOR ESS 

; 0340 0 VEC-ALL = [{ 6. 0, 16, 0 }. t INTERRUPT VECTOR ADDRESS 

O341 0 CSR_ALL = { 7, 0, 16, 0 + CONTROL AND STATUS REGISTER 

; ; 





ooooooooooooococj“m“ooocooooocooooo“eoooooooooooooo 


See 
' 
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hs ss 2s © 
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0, 16, 
0, 16, 


© 
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0], 
0], 


8, 0 }. 


16, 0 








VAX-11 Bliss-16 V4.0-57 


27-Mar-1986 07:35:28 Page 10 
DISK2: (SCODA.QNA. ZONA JONALIB.. R16;1 (9) 


26-Mar-1986 17:01:04 


TRANSMIT AND RECEIVE DESCRIPTOR LIST FIELDS 


XMIT OF RCV FLAG WORD 

DESCRIPTOR BITS 

XMIT BUFFER BEGINS ON BYTE BOUNDARY 

XMIT BUFFER ENDS ON BYTE BOUNDARY 

SET-UP PACKET IF 1 

LAST DESCRIPTOR IN CHAIN ( END ) 
DESCRIPTOR HAS CHAIN ADDRESS IF 1 

VALID ADDRESS IF 

LOW 16 BITS OF XMIT OR RCV BUFFER ADDRESS 
XMIT OR RCV PACKET WORD LENGTH 


XMIT OR RCV STATUS WORD 1 
FIFO BUFFER OVERFLOW 


SANITY TIMER ON AT POWER_UP 
NO CARRIER 

RUNT PACKET IN FIFO 

CONTROL SET_UP OR LOOPBACK PACKET 
LONG PACKET 

ERROR SUMMARY 

LAST DESCRIPTOR LIST IN CHAIN 

XMIT OR RCV STATUS WORD 2 

RECEIVE BYTE LENGTH ( LOW 8 BITS ) 
DESCRIPTOR LINK PRE-FILL STATUs WD 


BUFFER STATE ! XMIT ODD/EVEN ! HIGH ORDER ADR 





SEQ 297 
27-Mar-1986 07:35:28 VAX-1) Bliss-16 V4.0-579 Page 11 
26-Mar-1986 17:01:04 DISK2: [SCODA.QNA.ZQNA JQNALIB.R16;1 (10) 


Oj, ! I/0 PAGE BASE ADDRESS 
0], ! INTERRUPT VECTOR ADDRESS 
BR LEVEL 


1 SOFTWARE P-TABLE FIELD DEFINITIONS 


FIELD 
SWP_FIELDS = 


SET 
ERR_CNT = [0,0,16,0] ! # OF ERRORS BEFORE DROPPING DEQNA 
; 


ocoooooooooooooocooeooooooooooo 


; COMMAND QUALIFIERS 
; BLISS/PDP11 QNALIB.R16/LIST=QNALIB.LIS/LIBRARY=QNALIB .L16/SOURCE=PAGE : 53 
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CZQNAAO DEQNA FUNCTIONAL TEST 


WO @WAIMUNS Vil 


MACRO VO5.03 Thursday 27-Mar-86 07:38 Page 2 SEQ 298 


. TITLE CZQNAAO DEQNA FUNCTIONAL TEST 
-IDENT /2.4/ 
$XYZ$,RO,I,LCL,REL,CON 


PRODUCT CODE: 
PRODUCT NAME : 
PRODUCT DATE: 


MAINTAINER: 
AUTHOR : 


IDENTIFICATION 


AC-T614A-MC 

CZQNAAO DEQNA FUNCTIONAL TEST 
10 OCT. 1983 

PSD DTAGNOSTIC ENGINEERING 

S. MAZURCZYK 


COPYRIGHT (C) 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 


COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY T OTHER PERSON 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE PMENT 


CORPORATION. 
DEC ASSUMES NO RESPONSIBILITY FOR THE USE : eeaiaiil OF ITS 


SOF TWARE 


CONSTRUED AS A COMMITMENT BY DIGITAL EQUI 


ON EQUIPMENT WHICH IS NOT SUPPLIED BY . 
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CZQNAAO DEQNA FUNCTIONAL TEST 


46 
47 
48 
49 
50 
51 
Se 
53 
34 
55 
56 
57 
58 
59 
60 


MACRO VOS.03 Thursday 27-Mar-86 07:38 Page 3 


ABSTRACT: 


Out-of-line routines to save and restore regraaer contents. 
Also, power fail and console input interrupt service routines. 


ENVIRONMENT : 
POP-11 or Compatibility Mode of the VAX, EIS and NOEIS 
DISCUSSION: 
The routine $SAVEn is called at the beginning of a routine 
which modifies the contents of registers 1 thru n. The calling 
sequence is the following: 


JSR R1,$SAVEn 


ie 


SEQ 299 
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CZQNAAO DEQNA FUNCTIONAL TEST MACRO VOS5.03 Thursday 27-Mar-86 07:38 Page 4 SEQ 300 

62 000000 RO=80 

63 000001 Ri=61 

64 000002 R2=s2 

65 000003 R3=83 

000004 R4 

67 000005 R5=85 

68 000006 

69 000007 PC=s7 

71 000000 $SAVE2 

72 000000 010246 MOV R2,-(SP) 
000002 010146 MOV R1, -(SP) 

4 000004 016601 000004 MOV 4(SP),Ri 

75 000010 004736 JSR PC, acSP)-+ 

76 000012 000432 BR RE2 

78 000014 $SAVE3: : 

80 000016 010346 MOV R3,-(SP 

81 000020 010146 MOV Ri, -(SP) 
000022 016601 000006 MOV 6(SP),Ri 

83 000026 JSR PC, a(SP)-+ 

84 000030 BR RES 
000032 $SAVE4: : 

87 000032 010246 MOV R2,-(SP) 
000034 010346 MOV R3,-(SP) 

89 000036 010446 MOV R4,-(SP) 

90 000040 010146 MOV Ri. -(SP) 

91 000042 016601 000010 MOV 8.(SP),R1 

92 000046 004736 JSR PC, acSP)-+ 

93 000050 000411 BR RE4 

95 000052 $SAVES: : 

97 000054 010346 MOV R3,-(SP 
000056 01 MOV R4,-(SP) 
000060 O01 MOV RS, -(SP) 

1 010146 MOV R1,-(SP 

01 000012 MOV 10.(SP) 1 

02 70 JSR PC. acSP)-+ 

103 000072 012605 MOV (SP)+,R5 

104 000074 012604 RE4: MOV (SP)+,R4 

105 000076 012603 RE3: MOV (SP)+,R3 

06 000100 01 RED MOV (SP)+,R2 

107 000102 012601 MOV (SP)+,R1 

08 000104 7 RTS PC 
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CZQNAAO DEQNA FUNCTIONAL TEST MACRO VO5.03 Thursday 27-Mar-86 07:38 Page 5 SEQ 301 
110 
111 000106 WAIT .F:: 
112 000106 052737 000100 177560 BIS #100 , 84177560 ; ENABLE CONSOLE INPUT INTERRUPT 
113 000114 010667 000000G V , TEMP6 ; SAVE COPY OF STACK POINTER ADDRESS 
114 000120 000001 T ; WAIT FOR AN INTERRUPT 
tia 000122 000207 RTS 
117 000124 PWR .IN: : 
118 000124 000257 CCC ; CLEAR PS CONDITION BITS ( 0-4 ) 
119 000126 012767 000001 000000G MOV #1, INTERR ; SET IF SANITY TIMER TIMED_OUT 
000134 000017 177524 MOV $17, a0177524 ; TURN OFF CPU LED’S 
121 pss pri 016706 000000G _ TEMP6 , SP ; RESORE STACK POINTER 
123 000150 NOP 
124 000152 000240 NOP 
000154 000240 NOP 
000156 000240 NOP 
127 000160 000240 NOP 
128 000162 000240 NOP 
129 000164 000207 RTS PC 
130 000166 KBD .IN: : 
131 000166 012767 000000 000000G MOV #0, INTERR ; SET IF INTERRUPTED FROM CONSOLE 
132 000174 005067 000000G CLR TEMP 1 ; 
005037 177560 CLR #177560 ; DISABLE CONSOLE INTERRUPTS 
013767 177562 000000G MOV #177562, TEMP1 ; SAVE CHARACTER 
135 000212 000002 RTI 
137 000001 END 


EK 
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CZQNAAO DEQNA FUNCTIONAL TEST MACRO VOS.03 Thursday 27-Mar-86 07:38 Page 5-1 
Symbol table 
INTERR= «#ee00 GX RE2 000100R 002 TEMP1 = *«#eeee GX 


KBD.IN 000166RG 002 RES 000076R 002 T 
PWR.IN 000124RG 002 RES 000074R 002 WAIT.F 000106RG 


. ABS. 000000 000. «—(( 


$xYZ$ 000214 002 «(¢ 
Errors detected: 0 


*#s+ Assembler statistics 


A reads: : 
Size of work file: 51 Words ( 1 Pages) 


Size of core pool: 19684 Words ( 7 Pegee) 
Operating system: RSX-11M/PLUS (Under VAX/VMS) 


i lapees time: 00:00:02.44 
B16SAV.0BJ,B16SAV.LIS/-SP=SVC34/ML ,B16SAV 


EMP6 = «aea00 GX 


SEQ 302 


002 $SAVE4 000032RG 002 


VE2 O00000RG 
2 $SAVE3 000014RG 002 $SAVES O000052RG 002 





F8 


ZQNAEO.EXE;2 Memory allocation TKB M42.00 — SEQ 303 
¥o5 MAR-56 07:38 a 


Partition name : DUMMY 

Identification : V01.0 

Task UIC : (330,33) 

Task attributes: -HD 

Total address windows: 1. 

Task image size : 11360. words 

Task address limits: 002000 056263 

R-W disk blk limits: 000002 000056 000055 00045. 


*## Root segment: ZQNA1 


R/W mem limits: 002000 056263 054264 22708. 
Disk blk limits: 000002 000056 000055 00045. 


Memory allocation synopsis: 


Section Title Ident File 
$CODE$:(RO,I,LCL,REL,CON) 002000 000416 00270. 

002000 000244 00164. ZQNA1 V01.0 ZQNA1.0BJ;2 

002244 000152 00106. ZQNA2 V01.0 ZQNA2.0BJ;2 
$GL0B$:(RW,D,LCL,REL,CON) 002416 012510 05448. 

002416 012510 05448. ZQNA1 V01.0 ZQNA1.0BJ;2 
$PLIT$:(RO,D,LCL,REL,CON) 015126 007520 03920. 

015126 007520 03920. ZQNA1 V01.0 ZQNA1.0BJ;2 
AASCOD: (RO,I,LCL,REL,CON) 024646 000466 00310. 

024646 000466 00310. ZQNA2 V01.0 ZQNA2.0BJ;2 
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ZQNAEO.EXE;2 Memory allocation map TKB M42.00 
27-MAR-86 07:38 


ABS$COOD:(RO,I,LCL,REL,CON) 


AC$COD:(RO,I,LCL,REL,CON) 


. BLK.:(RW,I,LCL,REL,CON) 


$xYZ$ :(RO,I,LCL,REL,CON) 


Global symbols: 


ADR 


BD.PRO 014310-R 


BITO 


BITOO 


BITO1 


BITO2 


BITOS 


BITO4 


BITOS 


000020 


000001 


000001 


BITO9 


BIT1 


BIT10 


BIT1ii 


BIT1i2 


BIT13 


BIT14 


BIT1i5 


BIT2 


001000 BIT6 000100 
000002 BIT7 000200 
002000 BIT8 000400 
004000 BIT9 001000 
010000 BL$LAS 056244-R 
020000 BOE 000400 
040000 BUF. .LE 015036-R 
100000 CHECKS 015034-R 
000004 CHK .CS 050746-R 


025334 021544 09060. 
025334 021544 09060. 
047100 006612 03466. 
047100 006612 03466. 
055712 000116 00078. 
055712 000116 00078. 
056030 000234 00156. 
056030 000214 00140. 
056244 000020 00016. 


Page 2 


ZQNA3S VO01.0 


ZQNA4 01.0 


.-MAIN. 


CZQNAA 2.4 
ZQNAS 01.0 


CHK.XM 051140-R 
CLR.BU 050334-R 
CLR.DE 050306-R 
COMPAR 052236-R 
COUNTE 015026-R 
CSR.WO 015040-R 
DATA.B 003016-R 


DEQNA. 015024-R 


DESCR. 002416-R 


ZGNA3S . OBJ; 2 


ZQNA4 . OBJ; 2 


ZQNA6 . OBJ; 2 


B16SAV .0BU;2 
ZQNAS . OBJ; 2 


EF .CON 000036 


EF .NEW 000035 


EF .PWR 000034 


EF .RES 000037 


EF .STA 000040 


ERRBLK 002204-R 


ERRMSG 002202-R 


ERRNBR 002200-R 


ERROR$ 047100-R 


ERR.NU 015044-R 


ETH.ST 014064-R 


EVL 000004 


E1$REP 047404-R 


FORM.H 054016-R 


GET.AD 015014-R 
GP$1 002314-R 
GP$2 002324-R 
GP$3 002340-R 


SEQ 304 
GP$7 002400-R 
GP$8 002406-R 
HOE 100000 


HP.TAB 002210-R 


HWP .TA 015004-R 


IBE 010000 
IDU 000040 
IER 020000 


INTERR 015022-R 
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ZQNAEO.EXE;2 Memory allocation map_ TKB M42.00 
27-MAR-86 07:38 


BITO6 000100 
BITO7 000200 
BITO&8 000400 
ISR 000100 
IXE 004000 
KBD.IN 056216-R 
LOE 040000 
LOGUN 015124-R 
LOT 000010 
L$ACP 002110-R 
L$APT 002036-R 
L$AU 025266-R 
L$AUT 002070-R 
L$AUTO 025222-R 
L$CCP 002106-R 
L$CLEA 025242-R 


L$CO 002032-R 


BITS 000010 
BIT4 000020 
BITS 000040 
L$HW 002210-R 


L$HWLE 002206-R 


L$ICP 002104-R 


L$INIT 025210-R 


L$LADP 002026-R 


L$LAST 056250-R 


L$LOAD 002100-R 


L$LUN 002074-R 


L$MREV 002050-R 


L$NAME 002000-R 


L$NDHR 002334-R 


L$NDHW 002214-R 


L$NDSF 002414-R 


L$NDSW 002234-R 


CHK .RC 051436-R 


CHK .RI 050362-R 


CHK .RX 051756-R 


MSGO6 


MSGO7 


MSG18 


MSG19 


016220-R 


016312-R 


016404-R 


016476-R 


016570-R 


016652-R 


016736-R 


' 017002-R 


017066-R 


017156-R 


017240-R 


017326-R 


017414-R 


017440-R 


Page 3 


DFSTBL 002210-R 


DOWN.C 015032-R 


D$PCNT 002122-R 


MSG43 


MSG44 


MSG45 


MSG46 


MSG47 


MSG48 


MSG49 


MSGSO 


021572-R 


021656-R 


021760-R 


022036-R 


022106-R 


022172-R 


022230-R 


022266-R 


022350-R 


022402-R 


022446-R 


022476-R 


022546-R 


022610-R 


ERRTYP 002176-R 
ERR.CO 015050-R 
ERR.FL 015046-R 
PREP.F 053734-R 
PRI 002000 
PRIOO 
PRIO1 
PRIO2 
PRIO3 
PRI04 
PRIOS 
PRIO6 
PRIO7 
PTRN.T 014110-R 
PWR.IN 056154-R 
Pi 015102-R 


P2 015104-R 


GP$4 002350-R 
GP$S 002364-R 
GP$6 002372-R 


SET.XD 052732-R 


SP.TAB 002220-R 


STATIO 014100-R 


SWP.BL 002230-R 


SWP.IL 002226-R 


SWP.LB 002222-R 


SWP..NX 002232-R 


SWP.TA 015006-R 


SWP.TI 002220-R 


SWP.TO 002224-R 


TADRi 015120-R 


TADR2 015122-R 


TARGET 014120-R 


TBYTE1 015114-R 





SEQ 305 


INTR.T 055250-R 


IOP .DA 015012-R 


IOP.TA 014044-R 


Ti2 


T13 


714 


T15 


T16 


Ti7 


T18 


T19 


T2 


T20 


036600-R 


040036-R 


041320-R 


041550-R 


043612-R 


044454-R 


044772-R 


045342-R 


026624-R 


046042-R 


047064-R 


027320-R 


030366 -R 


031246-R 
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ZQNAEO . EXE 52 


Memory allocation TKB M42.00 P 4 SEQ 306 
155 MAR-86. OT: _ 


38 


L$DEPO 002011-R 


L$DESC 002262-R 


L$DESP 002076-R 


L$DEVP 002060-R 


L$DISP 002124-R 


L$DLY 002116-R 


L$DTP 002040-R 


L$DTYP 002034-R 


L$DU§ 025254-R 


L$DUT 002072-R 


L$DVTY 002244-R 


L$EF  002052-R 


L$ENVI 002044-R 


L$ERRT 002176-R 


L$ETP 002102-R 


L$EXP1 002046-R 


L$EXP4 002064-R 


L$EXPS 002066-R 


L$PRIO 002042-R 


L$PROT 002236-R 


L$PRT 002112-R 


L$REPP 002062-R 


L$REV 002010-R 


L$RPT 024656-R 


L$SFTL 002336-R 


L$SOFT 002340-R 


L$SPC 002056-R 


L$SPCP 002020-R 


L$SPTP 002024-R 


L$STA 002030-R 


L$SW 002220-R 


L$SWLE 002216-R 


L$TEST 002114-R 


L$TIML 002014-R 


L$UNIT 002012-R 


MSGOO 015522-R 


MSG20 


MSG21 


MSG22 


MSG23 


MSG24 


MSG36 


MSG37 


017526-R 


017616-R 


017676-R 


017762-R 


020040-R 


020114-R 


020156-R 


020220-R 


020262-R 


020326-R 


020720-R 


021016-R 


021122-R 


MSGS7 022646-R 


P3 


015106-R 


MSGS8 


MSG59 


MSG60 


MSG61 


MSG62 


MSG63 


MSG64 


MSG65 


MSG66 


MSG67 


MSG68 


MSG69 


022736-R 


023002-R 


023114-R 


023156-R 


023220-R 


023310-R 


023404-R 


023440-R 


023504-R 


023572-R 


023674-R 


023772-R 


024072-R 


024156-R 


024236-R 


024324-R 


024414-R 


P4 015110-R 


PS 015112-R 


QNA.IN 025306-R 


TBYTE2 015115-R 


TBYTES 015116-R 


TBYTE4 015117-R 


7013): 014500-R 


QSTO1 


QSTO02 


QSTO3 


QST04 


QSTO5 


QST06 


QST07 


QST10 


015126-R 


015156-R 


015206-R 


015250-R 


015312-R 


015354-R 


015416-R 


015460-R 


RBUF .L 015020-R 
RCV.BU 003016-R 
RCV.D. 002416-R 
RD13 014604-R 
REG.AD 015010-R 


RESET. 047424-R 


TD16 


TEMP1 


TEMP2 


TEMPS 


TEMP4 


TEMPS 


TEMP6 


TEMP7 


TEMPS 


TEMP9 


TMPR1 


014350-R 


015060-R 


015062-R 


015064-R 


015066-R 


015C’’0-R 


015072-R 


015074-R 


015076-R 


015100-R 


015052-R 


TMP.I0 015054-R 


TMP .RE 015056-R 


TURN.O 055636-R 


T6 031710-R 


17 033322-R 
T8 033560-R 
T9 034104-R 
UAM 000200 

UP.COU 015030-R 
VER .DE 050106-R 
WAIT.F 056136-R 
WALKIN 053010-R 
WRT .ST 053542-R 
XBUF .L 015016-R 
XC.FLA 015042-R 
XMIT.A 055412-R 
XMIT.B 007016-R 
XMIT.D 002616-R 
XMIT.I 055440-R 


XMIT.S 054466-R 


$END.L 056262-R 








ZQNAEO .EXE ;2 Memory oliesstion = M42 .00 Page 5 SEQ 307 
L$HARD 002314-R MSGO1 015560-R MSG38 021214-R MSG75 024466-R ROMCHK 055712-R TSFREE 056260-R $SAVE2 0560350-R 
L$HIME 002120-R MSGO2 015642-R MSG39 021274-R MSG76 024556-R SEND.E 054734-R TS$PTHV 000001 $SAVE3 056044-R 
L$HPCP 002016-R MSGO3 015730-R MSG40 021360-R NXM.IN 025276-R SEND.T 055102-R 11 025774-R $SAVE4 056062-R 
L$HPTP 002022-R MSGO4 016034-R MSG41 021450-R PHYS.A 013016-R SETUP. 013044-R 110 034342-R $SAVES 056102-R 
L$HRDL 002312-R MSGOS 016126-R MSG42 021512-R PNT 001000 SET.RD 052654-R Til 034676-R 


*#** Task builder statistics: 
Total work file references: 89946. 


Work file reads: 0. 
Work file writes: 0. 


Size of core pool: 23176. words (90. pages) 
Size of work file: 3584. words (14. pages) 


Elapsed time:00:00:14 


a 





K8 


ZQNAEO 
GLOBAL CROSS REFERENCE 


SYMBOL 


CREATED BY TKB ON 27-MAR-86 AT 07:38 


VALUE 


000020 
014310-R 
000001 
000001 


REFERENCES... 
# ZQNAL # ZQNA2 
# ZQNAL ZQNA3 
# ZQNAL # ZQNA2 
# ZQNAl1 # ZQNA2 
# ZQNAL # ZQNA2 
# ZQNAl # ZQNA2 
# ZQNAL # ZQNA2 
# ZQNA1 # ZQNA2 
# ZQNAl # ZQNA2 
# ZQNAL # ZQNA2 
# ZQNA1 # ZQNA2 
# ZQNAL1 # ZQNA2 
# ZQNAl # ZQNA2 
# ZQNAl # ZQNA2 
# ZQNA1 # ZQNA2 
# ZQNAl # ZQNA2 
# ZQNA1 # ZQNA2 
# ZQNAl # ZQNA2 
# ZQNAl # ZQNA2 
# ZQNA1 # ZQNA2 
# ZQNAL # ZQNA2 
# ZQNA1 # ZQNA2 
# ZQNA1 # ZQNA2 


PAGE 1 
CREF 04.00 


SEQ 308 


ZQNA4 








CREATED BY TKB ON 27-MAR-86 AT 07:38 


@ ZQNA1 
@ ZQNA1 
@ ZQNA1 
@ ZQNA1 
# ZQNA1 
# ZQNAS 
# ZQNA1 
# ZQNA1 
# ZQNA1 
ZQNA3 
ZQNA3 
ZQNAS 
ZQNA3S 
ZQNAS 
ZQNA3 
ZQNAS 
ZQNA3 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 


# ZQNA2 
# ZQNA2 
# ZQNA2 
# ZQNA2 
# ZQNA2 


# ZQNA2 


ZQNAS 
# ZQNA4 
# ZQNA4 
# ZQNA4 
# ZQNA4 
# ZQNA4 
# ZQNA4 
@ ZQNA4 
# ZQNA4 
ZQNAS 
ZQNA3S 
ZQNA3 
ZQNA3 
ZQNAS 


ZQNAS 


ZQNA4 


ZQNA4 
ZQNA4 
ZQNA4 
ZQNA4 
ZQNA4 


ZQNA4 


.MAIN. 


PAGE 2 


SEQ 309 








M8 


ZQNAEO 
GLOBAL 


CREATED BY TKB ON 27-MAR-86 AT 07:38 


VALUE 


000040 

002204 -R 
002202-R 
002200-R 
047100-R 
002176-R 
015050-R 
015046-R 
015044-R 
014064 -R 
000004 

047404-R 
054016-R 
015014-R 
002314-R 
002324-R 
002340-R 
002350-R 
002364 -R 
002372-R 
002400-R 


CROSS REFERENCE 


REFERENCES... 


@ ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 

ZQNA3 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 

ZQNA3 

ZQNA3S 
# ZQNA1 
# ZQNA2 
# ZQNA2 
# ZQNA2 
# ZQNA2 
# ZQNA2 
# ZQNA2 
# ZQNA2 
# ZQNA2 
@ ZQNA1 
# ZQNA1 
@ ZQNA1 


# ZQNA2 


# ZQNA4 


ZQNA3 
ZQNAS 
ZQNAS 


# ZQNA2 
# ZQNA4 


# ZQNA4 
ZQNA2 


# ZQNA2 


ZQNA2 


ZQNA4 
ZQNA4 
ZQNA4 


ZQNAS 


ZQNA3S 


ZQNA4 


ZQNA4 


PAGE 3 


CREF 04.00 


SEQ 310 





N8 


ZQNAEO 
IBE 
IDU 
IER 
INTERR 
INTR.T 
IOP .DA 
IOP.TA 
ISR 
IXE 
KBD. IN 
LOE 
LOGUN 
LOT 
L$ACP 
L$APT 
L$AU 
L$AUT 
L$AUTO 
L$ccp 
LS$CLEA 
L$Co 
L$DEPO 
L$DESC 
L$DESP 
L$DEVP 
L$DISP 
LSOLY 


CREATED BY TKB ON 27-MAR-86 AT 07:38 

010000 @ ZQNAi # ZQNA2 

000040 @ ZQNAL # ZQNA2 

020000 # ZQNAL # ZQNA2 

015022-R CZQNAA # ZQNA1 ZQNA2 ZQNA3 
055250-R ZQNAS # ZQNA4 

015012-R # ZQNA1 ZQNA2 ZQNAS ZQNA4 
014044-R # ZQNA1 ZQNA2 ZQNAS ZQNA4 
000100 # ZQNAl # ZQNA2 

004000 # ZQNA1 # ZQNA2 

056216-R # CZQNAA ZQNA3 

040000 # ZQNA1 # ZQNA2 

015124-R # ZQNA1 ZQNA2 

000010 # ZQNAL # ZQNA2 

002110-R # ZQNA1 

002036-R # ZQNA1 

025266-R ZQNAL # ZQNA2 

002070-R # ZQNA1 

025222-R ZQNAL # ZQNA2 

002106-R # ZQNA1 

025242-R ZQNAL # ZQNA2 

002032-R # ZQNA1 

002011-R # ZQNA1 

002262-R ZQNAL # ZQNA2 

002076-R # ZQNA1 

002060-R # ZQNA1 

002124-R # ZQNA1 

002116-R # ZQNA1 ZQNA2 ZQNA3 ZQNA4 


PAGE 4 


ZQNA4 


SEQ 311 








BY 


ZQNAEO 
GLOBAL 


SYMBOL 


L$DTP 
L$DTYP 
L$DU 
L$DUT 
L$DVTY 


CREATED BY TKB ON 27-MAR-86 AT 07:38 
CROSS REFERENCE 


VALUE 


002040-R 
002034 -R 
025254-R 
002072-R 
002244-R 


REFERENCES... 


# ZQNA1 
# ZQNA1 


ZQNA1 


# ZQNA1 


ZQNA1 


# ZQNA2 


# ZQNA2 


PAGE 5 


CREF 04.00 


SEQ 312 


LSEF 002052-R # ZQNA1 
L$ENVI 002044-R # ZQNA1 
LSERRT 002176-R # ZQNA1 
L$ETP 002102-R # ZQNA1 
L$EXP1 002046-R # ZQNA1 
L$EXP4 002064-R # ZQNA1 
L$EXPS 002066-R # ZQNA1 
L$HARD 002314-R ZQNAL # ZQNA2 
L$HIME 002120-R # ZQNA1 
L$HPCP 002016-R # ZQNA1 
L$HPTP 002022-R # ZQNA1 
L$HRDL 002312-k # ZQNA2 
L $HW 002210-R # ZQNA1 
L$HWLE 002206-R # ZQNA1 
L$ICP 002104-R # ZQNA1 
L$INIT 025210-R ZQNA1 # ZQNA2 
L$LADP 002026-R # ZQNA1 
L$LAST 056250-R ZQNA1 # ZQNAS 


L$LOAD 
L$LUN 
LSMREV 


# ZQNA1 
# ZQNA1 
# ZQNA1 








CREATED BY TKB ON 27-MAR-86 AT 07:38 


002000 -R 
002334 -R 
002214-R 
002414-R 
002234-R 
002042-R 
002236-R 
002112-R 
002062-R 
002010-R 
024656-R 
002336-R 
002340-R 
002056-R 
002020-R 
002024-R 
002030-R 
002220-R 
002216-R 
002114-R 
002014-R 
002012-R 
015522-R 
015560-R 
015642-R 
015730-R 


® ZQNA1 
@ ZQNA2 
@ ZQNA1 
® ZQNA2 
® ZQNA1 
® ZQNAL 
® ZQNAL 
@ ZQNA1 
 ZQNAL 
@ ZQNAL 

ZQNA1 
 ZQNA2 

ZQNA1 
® ZQNAL 
® ZQNAL 
® ZQNAL 
® ZQNAL 
® ZQNAL 
@ ZQNAL 
® ZQNAL 
® ZQNAL 
® ZQNAL 
® ZQNAL 
® ZQNAL 
-@ ZQNAL 
® ZQNAL 


# ZQNA2 


ZQNA3 
ZQNA3 
ZQNA3 
ZQNAS 


ZQNA4 
ZQNA4 
ZQNA4 
ZQNA4 


PAGE 6 


SEQ 313 








DY 


ZQNAEO 
GLOBAL CROSS REFERENCE 


SYMBOL 


CREATED BY TKB 


VALUE 


016034-R 
016126-R 
016220-R 
016312-R 
016404-R 
016476-R 
016570-R 
016652-R 
016736-R 
017002-R 
017066-R 
017156-R 
017240-R 
017326-R 
017414-R 
017440-R 
017526-R 
017616-R 
017676-R 
017762-R 
020040-R 
020114-R 
020156-R 


ON 27-MAR-86 AT 07:38 


REFERENCES... 


# ZQNA1 
# ZQNA1 
# ZQNA1 
@ ZQNA1 
@ ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNAL 
# ZQNA1 
# ZQNA1 
# ZQNAL 
@ ZQNA1 
# ZQNAL 
# ZQNA1 
# ZQNA1 
# ZQNAL 
# ZQNA1 
@ ZQNA1 


ZQNA3 


ZQNA3 


ZQNA3 


SEQ 314 








EY 


ZQNAEO 


MSG31 


CREATED BY TKB 


020354-R 
020442-R 
020526-R 
020570-R 
020644 -R 
020720-R 
021016-R 
021122-R 
021214-R 
021274-R 
021360-R 
021450-R 
021512-R 
021572-R 
021656-R 
021760-R 
022036-R 
022106-R 
022172-R 
022230-R 
022266-R 
022350-R 
022402-R 
022446-R 
022476-R 
022546-R 


@ ZQNA1 
# ZQNA1 
@ ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
@ ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 


ON 27-MAR-86 AT 07:38 


ZQNA3 
ZQNA3 
ZQNAS 
ZQNA3 
ZQNA3 
ZQNA3 
ZQNA3 
ZQNA3S 
ZQNA3S 
ZQNA3 
ZQNAS 
ZQNAS 
ZQNAS 
ZQNA3 
ZQNAS 
ZQNA3 
ZQNA3 
ZQNA3 
ZQNAS 
ZQNAS 
ZQNA3S 
ZQNA3S 
ZQNA3 
ZQNA3 
ZQNA2 
ZQNA3 


ZQNA4 
ZQNA4 
ZQNA4 
ZQNA4 
ZQNA4 
ZQNA4 
ZQNA4 
ZQNA4 
ZQNA4 
ZQNA4 
ZQNA4 
ZQNA4 


PAGE 6 SEQ 315 


ZQNA4 








FY 


ZQNAEO 
GLOBAL CROSS REFERENCE 


SYMBOL 


CREATED BY TKB ON 27-MAR-86 AT 07:38 


VALUE 


022610-R 
022646-R 
022736-R 
023002-R 
023114-R 
023156-R 
023220-R 
023310-R 
023404-R 
023440-R 
023504-R 
023572-R 
023674-R 
023772-R 
024072-R 
024156-R 
024236-R 
024324-R 
024414-R 
024466-R 
024556-R 
025276-R 
013016-R 
001000 

053734-R 
002000 


REFERENCES... 
# ZQNA1 ZQNAS 
® ZQNA1 ZQNA3 
# ZQNA1 ZQNA3 
# ZQNA1 ZQNA3 
# ZQNA1 ZQNAS 
# ZQNA1 ZQNA3 
# ZQNA1 ZQNAS 
# ZQNA1 ZQNAS 
# ZQNA1 ZQNA3 
# ZQNA1 ZQNA3 
# ZQNA1 ZQNAS 
# ZQNA1 ZQNA3 
# ZQNA1 ZQNA3S 
# ZQNA1 ZQNA3 
# ZQNA1 ZQNA3 
# ZQNA1 ZQNA3S 
# ZQNA1 ZQNA3S 
# ZQNA1 ZQNAS 
# ZQNA1 ZQNAS 
# ZQNA1 ZQNA3S 
# ZQNA1 ZQNA3 
# ZQNA2 ZQNA3 
@ ZQNA1 ZQNAS 
# ZQNAL # ZQNA2 

ZQNAS # ZQNA4 


# ZQNA1 


# ZQNA2 


ZQNA4 








G9 


ZQNAEO 


PRIOO 
PRIO1 
PRIO2 
PRIO3 
PRIO4 
PRIOS 
PRIO6 
PRIO7 
PTRN.T 
PWR .IN 
Pl 


CREATED BY TKB ON 27-MAR-86 AT 07:38 


014110-R 
056154-R 
015102-R 
015104-R 
015106-R 
015110-R 
015112-R 
025306 -R 
015126-R 
015156-R 
015206-R 
015250-R 
015312-R 
015354-R 
015416-R 
015460-R 
015020-R 
003016-R 


# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 


# CZQNAA 


# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA2 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNAL 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
# ZQNA1 
@ ZQNA1 


@ ZQNA2 
# ZQNA2 
# ZQNA2 
# ZQNA2 
# ZQNA2 
# ZQNA2 
# ZQNA2 
# ZQNA2 
ZQNAS 
ZQNA3 
ZQNAS 
ZQNAS 
ZQNA3 
ZQNA3 


ZQNAS 
ZQNA2 
ZQNA2 
ZQNA2 
ZQNA2 
ZQNA2 
ZQNA2 
ZQNA2 
ZQNA2 
ZQNA3 
ZQNA3 


ZQNA3 
ZQNA3S 
ZQNA3 
ZQNAS 
ZQNA3S 
ZQNA3 
ZQNAS 
ZQNA3 


ZQNA4 
ZQNA4 
ZQNA4 
ZQNA4 


ZQNA4 
ZQNA4 


ZQNA4 
ZQNA4 
ZQNA4 
ZQNA4 
ZQNA4 
ZQNA4 
ZQNA4 
ZQNA4 








H9 


ZQNAEO 
GLOBAL 


SYMBOL 


SEND .E 
SEND .T 
SETUP. 
SET .RD 
SET . XD 
SP. TAB 
STATIO 
SWP .BL 
SWP. IL 
SWP .LB 
SWP .NX 
SWP.TA 
SWP .TI 
SWP .TO 
TADR1 

TADR2 

TARGET 
TBYTE1 
TBYTE2 
TBYTES 
TBYTES 


CREATED BY TKB 


CROSS REFERENCE 


VALUE 


002416-R 
014604-R 
015010-R 
047424-R 
055712-R 
054734-R 
055102-R 
013044-R 
052654-R 
052732-R 
002220-R 
014100-R 
002230-R 
002226-R 
002222-R 
002232-R 
015006-R 
002220-R 
002224 -R 
015120-R 
015122-R 
014120-R 
015114-R 
015115-R 
015116-R 
015117-R 


REFERENCES... 
# ZQNA1 ZQNA3 
# ZQNA1 ZQNAS 
# ZQNA1 ZQNA2 
ZQNA2 ZQNAS 
ZQNAS # .MAIN. 
ZQNAS # ZQNA4 
ZQNAS # ZQNA4 
# ZQNA1 ZQNA4 
ZQNAS # ZQNA4 
ZQNAS = # ZQNA4 
# ZQNA1 
# ZQNA1 ZQNAS 
# ZQNA1 ZQNA3 
# ZQNA1 ZQNA3 
# ZQNA1 ZQNAS 
# ZQNA1 ZQNA3 
# ZQNA1 ZQNA2 
# ZQNA1 ZQNAS 
# ZQNA1 ZQNA3S 
# ZQNA1 ZQNA3 
# ZQNA1 ZQNA3 
# ZQNA1 ZQNA3 
# ZQNA1 ZQNA3S 
# ZQNA1 ZQNA3 
@ ZQNA1 ZQNA3 
® ZQNA1 ZQNA3 


ON 27-MAR-86 AT 07:38 


ZQNA4 


ZQNA3 
# ZQNA4 


ZQNA4 


ZQNA4 


-MAIN. 


ZQNA4 


PAGE i1 


CREF 04.00 


SEQ 318 








19 


ZQNAEO 


TD13 
TD16 
TEMP 1 
TEMP2 
TEMPS 
TEMP4 
TEMPS 
TEMP6 
TEMP7 
TEMPS 
TEMPS 
TMPR1 


TMP .I0 
TMP .RE 
TURN .O 
T$FREE 
T$PTHV 


T1 

T10 
Til 
Ti2 
T13 
T14 
Tis 
T16 
T17 


CREATED BY TKB 


014500-R 
014350-R 
015060-R 
015062-R 
015064-R 
015066-R 
015070-R 
015072-R 
015074-R 
015076-R 
015100-R 
015052-R 
015054-R 
015056-R 
055636-R 
056260-R 
000001 

025774-R 
034342-R 
034676-R 
036600-R 
040036 -R 
041320-R 
041550-R 
043612-R 
044454-R 


ON 27-MAR-86 AT 07:38 


# ZQNA1 ZQNAS 
# ZQNA1 ZQNAS 
CZQNAA # ZQNA1 
# ZQNA1 ZQNA2 
# ZQNA1 ZQNA2 
# ZQNA1 ZQNA2 
# ZQNA1 ZQNA2 
CZQNAA # ZQNA1 
# ZQNA1 ZQNA2 
# ZQNA1 ZQNA2 
@ ZQNA1 ZQNA2 
# ZQNA1 .MAIN. 
# ZQNA1 ZQNA2 
# ZQNA1 ZQNA2 
ZQNA3 # ZQNA4 
# ZQNAS 
ZQNAL # ZQNAS 
ZQNA1 # ZQNA3S 
ZQNA1 # ZQNA3 
ZQNA1 # ZQNAS 
ZQNA1 # ZQNAS 
ZQNAl # ZQNA3 
ZQNA1 # ZQNA3 
ZQNA1 # ZQNA3 
ZQNAL # ZQNA3 
ZQNAL # ZQNA3 


ZQNA2 
ZQNA3S 
ZQNAS 
ZQNAS 
ZQNAS 
ZQNA2 
ZQNAS 
ZQNAS 
ZQNAS 


ZQNAZ 
ZQNA3 


ZQNA3 
ZQNA4 
ZQNA4 
ZQNA4 
ZQNA4 
ZQNA3 
ZQNA4 
ZQNA4 
ZQNA4 


ZQNA4 
ZQNA4 


PAGE 12 


ZQNA4 


ZQNA4 


SEQ 319 








JI 


ZQNAEO 
GLOBAL CROSS REFERENCE 


SYMBOL 


T18 
T19 
T2 
T20 
T21 
T3 
4 
TS 
T6 


CREATED BY TKB ON 27-MAR-86 AT 07:38 


VALUE 


044772-R 
045342-R 
026624-R 
046042-R 
047064-R 
027320-R 
030366-R 
031246-R 
031710-R 
033322-R 
033560-R 
034104-R 
000200 

015030-R 
050106-R 
056136-R 
053010-R 
053542-R 
015016-R 
015042-R 
055412-R 
007016-R 
002616-R 
055440-R 
054466-R 
056262-R 


REFERENCES... 
ZQNAL # ZQNAS 
ZQNA1 # ZQNA3S 
ZQNAL # ZQNAS 
ZQNAi # ZQNAS3 
ZQNAi # ZQNAS 
ZQNA1 # ZQNA3 
ZQNAL # ZQNA3 
ZQNAL # ZQNA3 
ZQNAL # ZQNA3 
ZQNAL # ZQNA3 
ZQNA1 # ZQNAS 
ZQNAL # ZQNAS 
ZQNAL # ZQNA2 

# ZQNA1 ZQNA3 
ZQNA3 # ZQNA4 
# CZQNAA ZQNAS 
ZQNAS3 # ZQNA4 
ZQNAS # ZQNA4 
ZQNA1 ZQNA3 
# ZQNA1 ZQNA3 
ZQNAS # ZQNA4 
ZQNA1 ZQNA3 
ZQNA1 ZQNA3 
ZQNAS # ZQNA4 
ZQNAS = # ZQNA4 


@ ZQNAS 


ZQNA4 


ZQNA4 


ZQNA4 
ZQNA4 





KY 


ZQNAEO 
$SAVE2 


$SAVES 
$SAVE4 
$SAVES 


CREATED BY TKB 


056030-R 
056044-R 
056062-R 
056102-R 


# CZQNAA 
# CZQNAA 
# CZQNAA 
# CZQNAA 


ON 27-MAR-86 AT 07:38 
ZQNA3 ZQNA4 
ZQNA3S ZQNA4 
ZQNA2 ZQNA3 
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